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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi AP X — t ixner 
etTimer He . hwnd, O , 

S uto 


y£, : 


. .7 

ljlJc jdgidj jbjb 
, cLuudj Jdjjai 


{ Lilj Ji^Lidj } 





tLljjtU ^iLj JJ jJdJlJûjAu - jdJfMJfS : 

û<UL@ 

6JLuj 'Jtj'jji lûjujjSjLj : 

uuS i£jlj@ 

JAc. jtjjij jLjL : 

jAujj Jj\j@ 

jjjjtûjLjlj : 

( jLLûjj ) uuD@ 

jijjij jbjlj : 

lSjAJ (jj*ijlJ@ 

<2006 y)Lj £ 686> : 

jjjLuu JjjLj@ 

2006 uJLu ftASjJ uÇ Lj : 

jU JjJJjfi@ 

(jjLûLi <U : 

iiLx)Lj@ 

5 

4jJU yjLf@ 

jji: 1000 : 

j'4H@ 

jUj: 4000 : 



( 686 I^JjLlm (^JjUj jJtfjAA (jAwiS ^JjU Luj S <u 

ipjjljj ^ ( 2006 ) JiL* 
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FN Pr ivate S uto Footi Load ( ) 
f* -w Me . Capt ion = "Key Spy" p lc- idOicti ,*tLi jlj 
■ Creatc an API-titner W ^ 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

^jTe nd S uto ** ■ *— ** - 



Ljlj jjAilyiAJ <pijj<L £jlû <U GdjAui 
_jb= jdJ (jSdJJjlS AJ ÛmJIj lldjti jJiw j»AJ Ailjijwlj j(f«4A 
$j (5jL5 $t$Jj£ 'djjj ^jjUj AJ £jjj <£jGjIj^S 4£ tj^jtSJûjj 

£4j[4& AS.ww jj j&tfşi $SG ij ijAÛlmljS <U j<U jj^JjSjLwLj 
/iU IJÛL^U- jjjAA <U AjLujLulj j<Û US4J4SjJ>- JÛ<U- JJ $i$JJjijS£$Sşi 
t$$ij& Jj&iJjjjA (jHJSmjJ u«jlj OS t£4jlJju ^4i LLS<U , tjJjjti 
<U Q«gj <LS JjjjIj ?>Jj jjjljjj d«j jU$SuJ <jj4j^u«j)S a j^jlJU<L . 
iJjp yjU JJ diwJS jjjJA <LS tjjJJj <U tjlu j»<LJ JjlJjL«L«JJjiU 

ijdJtjlu j»<LJ $SG tşjjjjjj USoûlûLj G<U* 4J JjSj . uJjSjjtjjJ £ij$u 
jGLLw<U ^iVG <U j^JtjJj * JûjŞ’jj aSG jjjjLj <LJ <U j44 j^^jL^SGuJ ^LLuui 

jj JûJjJj I6M PC £$Lj <U LuAlJ ^SjjG^u^S Jjj^- (tij.^J.^G ^LûLm^S 

<LSG Jj4i^u«jS j»G< UJJÛ^J jG4J j4Û£U«jS jj PC ^Lj <LS J^JjG- j»<LS4j 
JjjjuS L^j4Û jiuJ jAJj^uJjS ASjjJ* < jjJljuiAjLSJJ IJUJ ^JÛuyjU Jj jjJ <j«i 4S 
jjj<U JLjjdjjMjjS J)lStjUj IjjjjAl jjjj jjjj jjj jjG< jjjjGjGJu IJUJ (j 
j C+ + ^iUj * jSjj 4J4A (jj4 JjJJtjS a iL«j ^ jjj ^jSGJjUj L<uJ < jj4J juJ 

ujj ^LSjj4j JiijSlujji jj 4S HTML jjiuj j J++ j C j Bosic ^iuj 

■ ■ iyjij i yJi^ i fox Pro yiuj j ÛJjjjAtijlSdJ 

,jiUj jjuûj tjdjj? 4j ^jjj f j SjjjjJSujJ Luûi4S (J4iLjUj j<U GjS<U 
IJÛJLU^j- ^jLSjJÛJjli 4J JûLuuJ G 4S (jGljiL 4iUj jJJ 4SuS4 j < ( 4 S«J4J ) 
^JLw ^ j24«4j< jjluuljljjJ 4j <U4 jjG < ÛUjJLÛ^j-JJ j4J fjSjJtjJLÛ 4j 

( jujuJlJ ) lijûijS 4J ^ûuS jjjr.ijjjjjS juUjJ.i lûlj j4jV 4J Ijjl 964 
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Pr ivate Sub Form Load ( ) ^ 

'w Me . Capt ±on = "Key Spy" p Ir- idOjcli Al» jlj 
■V ■ Create an API-timer JS y & 

— SetTimer He . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

/jT E nd Sub — — * — — 

jjj jUiVLw j Basic U jb$b $ lum$Sj jLSG«jAw>j $SG Jjljj uLûj 

• ■&**>*. j^i»>4j # 

^Luub j J ASJjGjjAw yjj.j f J^jJjS (4 mIj U<S$JU JjluS j»4J j« gijij 
,»<S Jjj jASo jjjJ (û! (kjbljjA, ûbaJ Jjjjuî j<Ub j<U ^<*SAiL«j 

. . jj>u jjjGAjJ^Si 

Aj G4jjG ^ûuSLwAj j uGjjaS<UIÛj<U ^j JÛLwLi ^uL <luIS pAJ jljjjJj 
j jG«jwbJ ^jjjSLwjjJ JjS <U ^SÛLSIjj ijûjls <Lj j»ljJjjj ^jjjiûuijj 
j»V^* ^Suu (ySJuui IjaS<uL)j<U jLj Jj JlluS j»G JJtiAçjAA.. ^JJ juLuûL) 
. . .uuGbJiS jjjAj jj^u 4 j (O^ijS ^SJuJjLûlj G<tç |»jljl^b 

iSG t ^jj <U<tAJ ^Jj^S <U jb<Uw JjUUJjAA U<UuS i»4J j LLyJjAwji- 
UUJj^S ^jUuljljjJ <J jljjSjjtj <UûS j»<J jjm uwjljjj jj$S SjJLuAjLSAj 
j^uu^j i£Jj^S jj fljlSJuuLujj UiGjjljub ^ibjb <U Gjj>«j jj.ûuûfUjGJj 
<J" LujSjj Jbj jbjjj ^SJjJu^J JiuG <û^b> jj< jJ ^Saibj Jj dJj 
Ju£u«$j "imiVi isusl" ^jb^ jJ jb" j^jJjja" ijjjMjj Delete ^jL^ 
JSJjbj <U jruJjSjj jj JSJLjjLSjLuib JûAjJj. ."jLj ^jjjSjbj" 

^uSb aJJÛuy jj jja jjLS jijijij )(£jb4J lJU$LLu i£4SLluS ^ LJj^ jljjjb 
<u jlL) jjjb). (tbipb jLLu^ jAjAJ jj J.S Gb<Sj j»jjjJj jj£Û <u (gLu 
GAJ j»JJJJl)$4A Jjb Jjb j»V<U*jjj<tJ jijjJ <UJ<UaLu ljrt> ^SjJJ^Lw 
Lûj jlSfG iJ^j- 4 j»4Su jwJSyuU jG^uujS jjilS^Ubj^U j<tw<U jGS<UujLûlj 
t |«L<wLû jjjLj jj$L) <U jj u S<U<ubj<U G<U- Ij^jLaIj ^iLSjjb <tJ j»jjjL)$<b 
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Pr ivate Sub Foriti Load ( ) 

= . Caption == "Key Spy rl 
■ Create an AP I — t-imer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

, dLuUdJ 


I 


j jmSL< i£i Sy* 3 bjj ^^AjbjAJ jAiwAJ jjLÛIj li><Tn <Jj ^jLJîjS &2 »j 

. .»jAaASj . j UJLw yiiU 
4xuJ j ujJ j lj Ajjj? (^JÛAjIjJj S ( 7 ? j2<U4AjAJ ^ jj |»j|j|juA I -ULjaS AJ 

. jî L i« — JjAliwjjjjj j^b<U ^jjj jiJ 


yjLfibjb jbjLi 

2006 ^jjjU -jlijjiA 
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FN Pr ivate S uto Footi Load ( ) 
f* -w Me . Capt ion = "Key Spy" p lc- idOicti ,*tLi jlj 
■ Creatc an API-titner W ^ 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

^jTe nd S uto ** ■ *— ** - 


Jjjijlj 

(ySdllfljJ 

Ö 

i»AS<U ^24J 

1 2 'Jl.yJJJ ^ J|4 Llj 4 J £i$Aj JjS 

14 d.uaJ JdjjUi jJ (£jLS$jj jjjJÛLuL) 


. . dliljJjjiJ ^jjjSiwjijJ jj JijJSjLS ^ijJJej 4J 

uJjjjLAJJjLSib diiljljjJ (jiJjiawjjJ jj ^Jjljljuli 

û^îjJ S«i<jjjjj i$jj4*j 4J 

. . . wUASj J ^ûujjJ JS (jiUjjî j<Û ^jjjASjJJ ^yjjw 


. . jLS^jJJJAu JiuLj jj*û 4 j 
ftjjjjj ^S4J 

. jLuAlj jj d4J4j|jj4J jjj.T' ^jjjj^îajjJ* 

30 jbj42 ^AtSjJ j ijUMjj (jj j .L uy ^jljjLj j4w4j-l 

36 AÛ j ^jljtfL) j jbj jj ^4*Sj J ^jIjjU j4*«4J ~2 

42 liSLuJ ^bj 4J jLSdjl jjS* 

42 jlijjijji^jjljASij* 

43 jliAuifi jjjjS* 

50 u 7fiS jjjjjbjSlj j<Lu Jj dJ,j<ULjj<U 

55 jLSjjljjL) ^iuuLj j4w4J jLSjjljjS 

I jSLj4j ^ibj <U jlSjjblj* 

57 IF (j^jAi (jjjUlj - 

67 Select ^jjuij - 
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Pr ivate Sub Form Load ( ) 
^ He . Caption = "Key Spy " 

■ m 1 Cireatc an API — t iiwer 
SetTimer He . hvnd, O , 

L sWTl.x\cX Suto 


|_p_lc jdgjdj 
* dLuUdJ 


73. 

75. 

77. 

79 

83 

85 

91 


96... 

100 . 

103. 

107 

109. 

113 

119 

120 
120 
122 . 

126 


For. . . .Next j tjLjt &jL»û - 

Do UUhile JiAjiJjjbjj ^jjub - 

Option jjjijuMA i U j a J — 3 



.^jj^lj j ^ijLu u'Ljmi ^jLSjjljjLj* 

^j^wLj ^iûjiû ^jljjLj jAwJJ ijşjLi -4 

■^ijLu (ffûjûi ^jljjLj jAwJJ JjljjJj 

<jUj ^j^Jjjjj^S ^A«bj4j -5 

^Aj-lui &2AJ 

( <j«iL» ) ^jLSjjb i jL»j<Û * 

^4«bj4J - 1 

jl^SAÛJi ^AtLjjJj -2 

ubjJjb jUaSJjJi (^AibjAj ji^ 

jjyqSjjjj (^ujU iiAjbjAj-3 

juj U (jjLSiWSfJ a jj jSjjLjj ^AjIÛjAj-4 

. . , .2^yiU <jiLS<wSjJ ^JjSjjbj ^JjLjjAJ -5 

Clickaus&b* 

DblCI ick ûl&jjj jijlu* 

Drog Drop jLîaSlj i jjjS £>b* 

DrogOver jijb* 

ju $ U (jJLSjjU jAaJj U JJAjioJ JJJJ^ 

(jy^U JaSaJ U4JA>Ji 1 
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Pr ivate Sub Form Load ( ) 
^ He . Caption = "Key Spy " 

■ m 1 Cireatc an API — t iiwer 
L SetTimer He . hvnd, O , 

L sWTl.x\cX Suto 


|_p_lc jdgjdi 
, cLuudj 


1 27 <u -2 

1 27 UmjL« jJ>S 4J <,i$jLy$jJ-3 

1 28 ^yjU tffaSjijj JjaSjjLS ^jjjSjbj-4 

1 29 Jj^uS ^ jwjU ^jI L ^jLSjJ-5 

1 29 jwjU ^jjblJjluuJ ^JjjiJjLw -6 

jj^uS^jLSjjL)" 

1 32 JjjjjS (yjLSfaSjl ^ JUbjJU - 1 

140 Cancel JjJ±ut-2 

141 Jj^uS ^jLSjjb jAwAJ J1 Aj4jL)jJj-3 

1 46 jlSjjûuJ ^jjjSLyjjj 

147 jLSjSijj^JUbjjj-l 

157 USuuuJ ^jUjJj ^J jl*û <J ^jLwjj JjA yjjjSjbj 

158 jLS<Û<uJ ^UjAfl jj jj jSSVLç ^jjLiû ^iblJ 

1 59 ^ljjS ^Lu J ^JUbjJU-2 

jLS<ujjS>iiS Aia^jLU* 

1 Ö4 ^jjjb ^ j jj jŞlj ^^jLuu-1 

yjJjLi ^uSjj jj jLSAiUui yjjjSjbj 

1 70 ( <^ajj>i! jjG m JU-jI ) input^jLU-2 

1 75 jjjSJ^lj ^JUbjjj 

1 77 uxWiLi ^jS^iS (jutSjj -3 

1 79 jS^IiS (juSjj jj jjLxjjS £ <ûb Jj <uj <ujG } <Li 

180 Ccincel j Defult ^jybuy jjjj<u 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Creat-e an API — txmer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

, dLuu<b 


1 82 jJj£)$ju$S a j»S$j ( 4 

1 88 jijSiyjijÇ j jAwAJ «iJAj<uLjj4U 

191 Jblj jJjU ÇijJû, ui 

196 BankCode 

208 CpntrolPonel 

212 £}L£jl4? 
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Pr ivate Sub Form Load ( ) 

Me . Capt ±on = rr K*=y Spy" |_pJc jdgidJ 

SetTimer Me - hwnd, O, 1 , 

E nd Sub 


dm > 4 -> jjd 





v 

<xr Auol> j&j ^&jjjLvjj 


v «* ■ ■ ■ . 

^JJJJJ^J ^0^)<2Ctj<iO 


^jlT&u Ajduöj&ub' 


,jLfo jl jjoU 


01100010111011000000101001 

111000101011011011101 
1 0000010001 100 1000 1000 
100011000100010000 
110000111000101010101 
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Pr ivate Suto Foriti Load ( ) 
He . Caption = "Key Spy " 
■ Create axi AP X — t ixner 
SetTimer He . hwnd, O , 
End Suto 


|_p_lc jdgjdi 
, cLuudj 


:c 1 m 04 ) kZS^MjjSjU (^ 4 cUj 4 i i£Oj<UJ jS ^ 4 Û V j>" 

^jj 4Jl^ t Au&iû ijSu uJ4J Jif jji (*d£ii (juL) j JljJjAJ 

. . IJLw4w 'jtj'jMÊ ûöjujjSJU (j*£Lj JaSaJ j24j4J t 

: tSj '(jSjtjjjj j»4J JlSJUljjJU tftjtjijSjt JLuJ 

c itStlujj ^Lj aSj Stort y4ç ^SUS Desktop j<u<u- 

^Imo) aSLj Progrom jji^ jLS4*ljj4j ^laj jAw jjjşşj ijj^jj tjtjjjSj 

j4w tjjM iJj^AjljS^jJ jûu * tjjjJjSj jLSJ.j|jjJ.J 4 j u<UjLj 

jjJuLijJu <u (£45<uaLj Microsoft visuol Studio 

- aSj Microsoft visuol Bosicö.O jjuaj u4£ Iauj .j^aujSj 


. aSjJj^ Jjj 


ö 

33 □ 

Q 

4] 1 

u 

m 

* ♦ 

# % 

Cl 

11 

0 . 

u 


Windorn Update 






@ Accessoöes ► 



@ Lotus ScreenCam 4 ► 

P1 

£)ocuments ► 

^ Intemel Explot« \ 

Bs 

Şettmgs ► 

decreet ^\| ► 

1 & 

Seaiçh ► 

Microsoft Web PubSshing ► 

|U 

Help 

1 mtalShield for Microsoft VEual C++ 6 


Rua.. 

F“ 


3^ Miaosqft Visual S ludb S.0 T oots 

Eiiaria’iKii. ' 


Ny> 


LogOff... 
Shyl Dom.. 


•Ö 


|l|işiart J\ & £3 H ” ^Ptoectl -MctosoftVisua | ^|mojtabakaUi.83 | [gWndom Meda Playet | jŞV 09:35 f 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Creat-e an API — txmer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj Jd 


^J.jjjjjJ Jj Iûaj jj OSluiSjj ajiijS ûA£4*ljj<U 4S JjjAj JuL) 

StQndard.exe <Gij :jijûllw &j)jj <Jjj? IJjjAJ jj Neuu Project 
jtjAxJjSj JJAjJjJ JjJjJ &JJ&J jJi^Sj Open jJmJJ uJ.J' ^SjJS JJjJ ja3A& 

. jJdSj jAuAJ jûiyû 
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Pr i-v 
X He 


Pr ivate Siib Foriti Load ( ) 

. Caption = "Key Spy r ' 
Create axi API — t ixner 
etTimer He . hund, O , 

S uto 


ljlJc jd^ict i ^bjL 
, dLuUdJ 



:<C 4 c ûj 4 » ^gjJjtiiU 

jj j Lajjjj i£d î»Aj ijiijS jLiJjJ ^jSAJJjjjJ J.S ^ijAJ iJljJ jljjjAJ 

. . .Jj|$JjS <U <j£lÛAJ 4 S. .JjAjJjSjJ 



jLujj^lj ( 1 
. jLSAittbJ ^iûjU ( 2 

jLS^LyJjdS ^ljjuf 3 


& - h, r n 

& y 

& % 

O Oi 

► II ■ 

Is eS' Ö 's * £i - 


.^pi^Sjj a iLwAJ ,»AJ 


^jjljjlity ^Sjjjjijj ^jjJjjjSjj : Rdd standard.exe Project ö- 

•iSjj 
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Pr ivate Suto Forrti Load ( ) 
He . Caption = "Key Spy " 
■ Create axi AP X — t imer 
SetTimer He . hwnd, O , 
nd S uto 


l_p_Lc jdgjdi juju 
* cLuudj 



.dAjdjjjj ^ijjSjbjjj : Rdd Porm - 

liSjjjjjjj j[j <U jlS<CbbJ ^ijjSLjjj jj <Q<ujQ: Menu €ditor . 

.Jjljjjjb ji«U J jAjAJ AS SûIjJjJ Jdi (,£Jj4iJjSjU: Open^L- 
. j LS 4 jj jj j Jj j jJ t^uuljb jJ : Sove u - 

.UJjjljjb jb JiuûJj e bjj jj: Cut - 
.djjljjb jb ÛLw<U ^JjJiijSjJJdJ jj : Copi,) Jd - 
. jlSjjljjb jb jlSJLuJb ^jjAibljjj : Poste - 

jlj4S : Find - 

4 S ijjjLS j<u jjIjj jj jiSiJb dju ^jjAiij^S jj : undo «- 

.jjldiuLftjJj 

.4ijJjS AS^JjLS j4ij4« JjAij^ jj : foruuord 
jj ûjjSjIj F5 i£<uS$j * jjJuSjj j»4i (jjLj- 4J ûûijjjj : Stort _L- 

. jjjJjS ûûjj J 4S ^4j<Ubj4j jAi ^wûi jb u4SjjLS ^jûlu 
.4j|JJj4JJj&bLj 4J jjjj J jSju u m jj J 4S ^4JUbj<U j4j ^ji JÛLlwJjjj : Stop — 
. jLSjjjjj ^jjjjjjjj^jjjjbJj ^jjjjSjjj jj : Project Cxplorer J* - 
ûjaSjj 4j<uSjj ,»4j j4«4J SLdS diuLS : Propertes uuindouus tfi? - 

. jjûjjSjJ jL4jb>uu i^jj4ju <U I j Jj 

j»jja ^jijdSjjj ^jj4*i<u i£><b<u jJjSSLdS <u: Form Loyout 3 - 

jjJÖJjSjJ 

jlSjjljjLi ^Ujwi Ijdj* uJdSjJ <U<uSjJ i»4j j<Lw<U JidS ûliulS: tOOl box - 

. jjULjSjj jlS<Uwjj<S jb 
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Pr ivate Suto Form Load ( ) 




He . Capt ion = r, Key Spy” 
:ate an AP X — tlmer 
SetTimer He . hxmd, 0 , 1 

S uto 


l_pic jdgjcti £>UjL» 

r dLuU<b 




• wl4J4x 0 j4J 

tyjijSluiJji jJ jLS ifliljJt i ijdjjjj ^4 <U jb tjJjtjJM 4J pdj JjA <u 


£>l>«b jSfjt jŞuçjjbdj IjLû ^dSdjLtjdJ ^jilSijijiLi j jJdSj i£}dJijjjJ 
^}l>«bj Textbox ju«>i^3l>«b j Common Button jbjAa ^JuSji 


... >3 a jb«jl>«b j jjj\ ! jjŞjJ 



i LiJjtjjjj ^iijSjuMjji jj jlSdjuSijdjj ijljnb ( 5 
IrfJ L lu? JJ ÛJjJuAH jISAj I i jijjj jlj <U AS JijLLuijiS jjlj*b jdl JjuJjJ 
liijij lj£ j<k*JjM jJJ Jmu»JA aS < jSjjJ? JLabiAJ LLuLijJj <jHjS 

jij )i >7 injjjj ij jfûljjn iStuj jiSbjii jLJuSjJjdA j j jiSiijH 

. .j\iu$j jbjLS Aj iJUjii <U jijiSijjjjûS JjJjû jb Jjjju^j Jûjjj ^JjLLuijiS 
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P\ Pr iv 



ate SuJd F 
. Capt ion 
Create ein 
etTimer M 
Suto 


orm Load ( ) 
= "Key Spy 
AP I-t ittier 
e . hTjnd, O, 


jm s' 

1 _/Uc jdgidi (jljjli 

, i ii ki t J 



Luy bljljub^A) bljjjdj ^iLuAjLSdJ ijJtjjx? JIiLuuJ 


<f 


PICTUR6 Box : tjjj JbjjJuM -1 

»} t IJUj^i jlj AJ dJjJjjj (jjluSjii şj jjj^J jLS<L djljulj ?>Aj jûljJti 

Jj 4S UlS AJ(Uljj<L u luijlJ Jj ÛJjnUftJJ jbjJ jjjjj fjiJjtŞAÛ JJAPtJ 

. jjJJJ lûwLj UjLS<UljjAJ ^JjSumJjJ ^ÛLSAjlj 


« Pointer : jiLSjjbj^jljulj -2 


« fabi Text Box ^jdiw -3 

jb jUuj»Lu liSjJJjjjJ wO^ JjbjJ i£JjJZi ^Jj jfj IjJJJ tşJ^jJjuM |»J. j (£$A 4 j 

. UiLSiUbjJj ^jjûjlj 4J juû^J jjLS 4 j jJ ^4jL&j 4j 
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Pr ivate Sub Forrti Load ( ) 
^ Me . Caption = "Key Spy r ' 
■ Create an API — tz- x me xr 
SetTimer He . hwnd, O , 
End Sub 


[_p_Lr= jdgjcu 
* cLuudj 


«< A Label -4 

iJujji <U jb jjxbl j jj ^LSiCbjjAS jj jLÛûfLi jjjlpdJ fjdjljuLi ptj <u 

. jruu>J ûi 


« I Command Button jbj<ûi$<uS$j-5 

jJUidjJ ûI^jLS , jl5Ailuj<Û a ilJUbb 4Û Aj <U<UjLj djljuLj ,»<L) 

. Ailuj A2 J <Û ^jl JulJU <û Aj wuûi wJ J j<U IjAj UUilujAd <U ÛJujG 

« ^ Option Button jjji>ÛA4 i£ji juLi -6 

AaÛ iûu IJLU jjljjS jLUI<UaS 4S IûSJJJjJjJ d jol>jjJ J^JjljjLj f>4j AJ 
, jj4j (^J4J,i»ji (J^jjj)? Jjj ^LSdjbjS Aij>û jj « jJASj JVLf jLSaSJj 
jLwb jj<ÛJ dVL^ jbj^ ^jjjb Jj jbSuSJj jul>jjj Ijjjûi ( jjJj jjj 

. jjA^j ûSdjbjS 

« F? Check 6ox jj jSSVLj ^AwjSji^ -7 

A 4 U ÛjJ IJLU ^jljjS «LLJ<U ^S JS IuSJJJj^jJ <U jÛljJJJ Jjjjljub <U 

3 UJjj iSjlijS UlÛUjjS j <\Suj ûjj^j » « jjuSj b^L?’ ( j SjJih dj jb jb jjjJA 
j UJJ ILLU i£ ( ûb j jbj AS<Lijj , ûiltjjAZ <\S <( jjj , ÛJjUSjjdl AS<LU^ ) 
j<\j jjjuib jtiipjj bjjûJ , uu Check box <u ûlb<ujG jb<\S<Uj<b 

AS Aijjl ^jljub (^^IjûffcU JûJjJj « jLbljJ jb jj^Sj UJVb* Uliliu 
. jJASj UJVb' UL)bj<Û dûiJujS <U jbjA3 ÛJ<U L$j4J Ûujjj 


« 



List Box ûwuJ ^jJLb -8 
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Pr ivate Sub Form Load ( ) 
^ He . Caption = "Key Spy " 

Vm 1 Cireate an API — t imer 
SetTimer He . hwnd, O, 
L4TEnd Sub 


|_p_lc jdgjdi 
, cLuudj 



jb jj djÛAtyJ jb jJjjjdAb jb 41 jûlşjil ijijl jjû f>AJ 4U 

jAJ 4S jJj$Jjij Ajljb jJJ jAui Jj ^jLûlj i$ Jj bj 4J j uj J Sj ummSj J 

. jjjiJjJJUlJ jU> JS ijiişS 4 J JmjaJJ < JJ 4 A iJiuuJ 


« [H Combo box jb ^i >Ij >uul ^jl >«b -9 
^jSjSuu jJii j SjMM jAmJJ CUlS CUjLS Cl4jjjuw4j » Jjl^ ûuul j CIjj jjljjb j»4J 
jij >Uj4i j jb jjjjjS 4 j jjjl>jj 4S . j$<LÛjSjj ^4S<LuuI L%ûû ûjaSjj 

■ J Mi 


« ii Verticol Scroll Bor^w^ju^jljjb -1 0 
jb jJASÛ IlûLSjûUjJÛ j^iw <U ^LSiljjS jûlpjJ jjjjljub fUÛ <u 
jûbj s> ASdjjjj <U jS SL» jb ^ÛLSiiuuaj jb jlSJûUjJÛ >Luû$b 

. tjijiMM jj^ijl> jj juwîfJU ujj 


« ij ijHorizentQl Scroll Bor^^b^jju^jljjb -11 

.ûuilj ^ uAç jj AÎJÛV^- jiJ jbJUJÛ fkV JU JUlj _3>uU (^ASjjljjb dj$ 


« Q Driver list box jJû^ujjS ^ jjU i£j4*j4Sju >$LL b -1 2 

i£JjU jjJjljJ \$&i ÛJASjJ ûuJJU UÛ» jb AI jjljMb j»4j ÛibLS 

. R,C,D,€, . . : LJjj Jjljj ^j jjî jb ûlJJJ jLuU û 4 Sjj 4 j£u«jS 

« 0 Timenû»)ûLS jijjûlj^jljjb- 1 3 

4J Jjiiw j_$j 4 j 3 UûLûbjij ^jlLUbûAJ 41 4ÛLS >blJ jj JjIjmIÛ f><Û 
. jujJ Lub jjj lJÛLS4«bj4j >JjSûuijJ > <U 41 4S ûjjS>jJjLS 
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ate Svito F 
. Caption 
Create an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hvjnd, O, 


l_/Uc jd^idi jUjLi 

r . ' I . . ■ 1 4—1 



« g) Filcs list box 

. <Lj<L& IdiJjdJLJ ^LjAJ <LS (gjUJ <û^ûU jd,j tj IjjL) ,»<û 


« Cj Directori,) list box jLSjjjjûja JLul -1 5 

. (jjitu jLSA jjIjJ <U uiJ<u jA4 ^U ^jLSjjj jJ ji jûl^uj : jjjjijjU £$& <u 

« \ UneiJÎLA-lö 

. b jlû <U UIÖLa sj wJJjLS 4J jjljjlû j»<û 

« i§) Shopes jLSXsjj$iw-17 

jj 42jSjl^£ jAjjlj jAwuSy 5 Ujj ^jLSjjûw jLJlpjJ jjjjljjLj j»4J ^LSuj <LJ 

• Ji&i ^k>î* 


« jLSiujLilj ^jj jSijjujS tgjl jjiLj -18 

(jljjujs j jJASÛ uwjjJ jLSAjJjLûlj (gJLSjJ jjiljJJJ JJjjlj^lû j»4,J (gjAJJ 
.JJ^iwljU UuniiS<Û ^Sjf (jS<U<L« lûj <U <LJ jLwJÛLUjLÛIj ^JJ <LS jj<LSû 


« Qimoge Ajjj^ijjlû-lÇ 

igjljjLj 4J jS4«4 j 4S (»j^j ^j jj45u JLjj UJjJAjjj jûl^UJJ j^JjIjjLj j»4j (g^A 4 j 

. ûuj<Li bStritch (P <ûlu <lj Lçiui 4Sujj j$ Picture 


ujujjji ^Sjj (jiLSJUJjlJjS <Ulûj<U wuiipjj <U$A 4J« gg OL6 -20 

ijiliiSj UlSLuJAJ JjjjuJ jlû<LJ 
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ate Svito F 
. Caption 
Create an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


I_pic jdgidj (jUjU 

, ,i i ii *<L» 



: J 4j 


((6 )) 


* JÛI^^J jS^4ilJ AjdjAM JJ i^jLSjjLS 
,>V<ij . uujjj jj dSdujljfl juj _j Cujû-jjIj fkj^a jjjJjû Jb 42 ûIjjj 13 - 

Vieuu j4w4J jJjStSolS 4 j JûjjAj ijijJiJJ ^jLuoJ ûûlpJJ J^JjuJ 

object 

AJ JhJjAJ> ijAjJASJ jlfiifS ^ûuu^j ^jjJbÛJU ûûliJJJ ijAJjA AJ - 

vieuu Code.j<G<u jjjS&dS 

jj 0 7 iTiS ^jjûUdSlj 4 j ûJluG jJ&S Jijdju Aj ijJjjA Jj jûl^ûjj - 
. jrUJJ LLwlû J ^jj iJpUlJ Ai dS Module JÛIj »}AjjJSj dJUJUlûjJb 



I JÛIÛ4 jIÛj 4 j (jjj jSyuûû ^ÛLS 4J jjiûjASjJJ ^jjjû ( ( 


glfi'iH-liMlll! 


Jjj^J jjj iJjJJi jul^UJJ ijJJijJAJ 4J f>JJ AJ 

IJJj<ÛJjSÛÛLÛ j jJjS JfAjjş (jûlS <U 4S jJASbjlbJ 


Form 



Stort j<lw<U jJjSSLdS 4j JJ JÛJjÛJJ 
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Private SuJd Form Load ( ) 

He.Caption = "Key Spy " 
1 Create an AP I — t imer 

L SetTimerr Me . hwnd, O , 

L^TEnca Suto 


1 _/Uc jdgidi 


ES 


»<1 

T 

5 



: Properties jLS<Lujj<uj <ujG <u ( < 8 ) 



ULJAJ JjjjjJ $AJÎiAJ |»AJ 

4) AS 4 jAA 

3 fOÎ's JjLS j uAltw jjjl^jjj jjjjjA 
4S JjjSjJjUj jLS4lwJj4S jjljwlJ 
Î»4J ^SJjj^uû 4j jMJ^Jij 

: J^jjL^SyJ 4JlJ Jjj<UJ<LjG 


4j4jjG jb<U4j : jlj Nome -1 

, jLS4lwJj4S jjljjLj jjiLj^Lj 4 j 
JJ^S $tjiûO 4J JJJ^S 4J4 S 
^j.ujjaSjJjjJ ^aSj^U JSjjljjLj 
jUjAS (^jljjLj £$U jjjjj^S <Û$>U 

dj$) Close <u Commond 

( dSdijj 


Private Sub close Click() 


ûj>u4«j;LS4j : Rlignment -2 

jjljjij ^jj^w /jjjjS jl iti nTniJJ jj 


$*i Ai 1 u4^ (^V <U jLj I J ) j^jI^Soj j j<Lçuv Jj « j LS J^ I ju^j jU jlS<LuJj4S 


( jjj«U 4) * uulj 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP X — txmer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi (jUjli 

, cLuudj Jd 


<u $ {$»$ lu >j : Rppecircince -3 

Ûj-Jj JÎA JJ^uy <U fkj^a IjAJ uJjUjjÎ<U 0 -FIqS j^AJ* JJ^JL^&J 



JjJjl^j- dj£$ ^jjJLu $»$MM AJ |»j^ 3 l^4J. ÛJjSj dVlç 1 -3D jJlljJ fkVdJ 

. uJjASjJjJJ 



^jljuLu jj aj aS ijnjS jAi ^JjSIjLS 4j jjaajlj jU4«Aj : ÇnoölecJ -4 
ÛjJJJ IjLS ASjJ^S )j 4Û ÛJj.jjjj4A True jJlSjj dAJJjlw4J< juujjjjj JljûUjJÎ 
i$i$2' jU ûujIj IjU 4Sj,iLij<j $i^ i ^ jj ûj jj jyj Folse jAS^ j*V JJ 4 

. ûLUljLS ASjjljjlj 
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Private Suto Form_Load ( ) ' 

He - Capt ion = "Key Spy" p lr- |daidl mL i lj 
■V ■ Create an API-timer LJ J T W 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

irEnd Suto 2 


jLS«jl>«|j $ ûLŞjjj jLlûruyj: jj uj:jlj<u : Bock color -5 

. jLjjjS lSûjj Ajij 

!□ 0000F& ▼ 


BackColor 


Palette 


System 



+- 


=F 


11 

II 


L 

JL 

□□C 

]□ 

■□□1 

■□□ 


HHh 




AJ dS v JjLLuJjJS jjljjLj ^jLLûab ^ÛJjjS aJ : CoptiOD -6 

^jljLu- . ûjjASiijH LUj^j ASa^b Ijjjjj 4 jI j . j û .Ua J jbjLSAJ I JS djj'jyjj 
^jSiAJ Jj y_£ 4S dj Lu i . Uj L) L^jJJ NQITIG AS Jja^AJ |J NoiTIG J^SaJ 
ûjjASbjdJ Ij ASdjjji ^JjJ.j AJ j * ûjjjiSdJ UûLSjj^S 

ijdûuuûdJ JJ ûjiSaJ jJjmJJ ^jSLUS ûLuLS Ijjjji : Font -7 
iSjî? ijjLjjj <L ÛJujG (i jJlwJj jJjSSûlS <L<tS * ÛJjASjJjJJ Û£U 

. Ji<LUjS«J ûJi- 

aS ûjjjLSjj j<tj jjSijj ^jjjjijjbj j jjj^S^j : Forecolor -8 

. uJjjMjjaJ 


IjUj^S ^ jS ^Ailjljjb j<û ^jjdJ ^jjJjSjjUJaj ûjjjjAaJjUJj : HeiQht -9 

. ÛUjÛbJJjLS <L 
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Pr ivate Sub Form Load ( ) ^ 

'w Me . Capt ±on = "Key Spy" p Ir- idOjcli Al» jlj 
■V ■ Create an API-timer JS y & 

— /-^r SetTimer He . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

L^TEncl Sub ** * 

4S i£4jljlji«b jdj ^jijJ (jjjjijjbjjj wJjjl&jJjliJj : Left -10 

■ ji<UL&6A jbjLSAJ IJUj^î AJ 

^jfw> jLSjjipUjLSAJ jjljjlj ^il; ^jjjiojbjjj : UUidth -1 1 

■ Ûj^JjjJJ^ 

Aiijijjb j^j ^ Hide jjAijjU j Shouu jUiLiw; >j : Visible -12 

. jJAijJwUjLS iJUjji 41 J.S CujjLSAj 

, öjjSjj <u jjjijwJAA jjj ^jujjUjujAjjD j»<L : Right to Left - 1 3 
jj wjjjljj jj4j4£ <u jLSjjljjb j jLSAiw^j Ij 4 j , wjjijjjjb True jaSaj 
<U 4 wJjJ jjlj , JjdwUJJ Ail^AşyJ Folse ^Jjljuiib j»^ 4 J « wulj 

■ ^S ^AibljSjjj 3<U ^iJjS ^jjjAê aj jb jjjS ^jj^S 

True ^ijjljjj^b aj, uojSjjj^ AJ jbj<û MoxBotton -14 

^Vaj, lJ4S<Ujjî <U wj^aSjjjjj ln| x| jjjSjjjljj 3 jwJ-ij ^LSjuS^j IjAj 

. wj^jibjjj jjbiS^j 3 jj 13 AJ jj jj j>u Folse jaSjj 
. 1 jbLSJlw^i jjj <u jLu$j jjii^jjj j 3 <uj£ <u: Font under - 1 5 
.uujjLSaj jLSJlw^j ^jjjSj-jjjj : Font Bold -16 
.ûujjLSaj jLSAlwi^i ^JiijjSjVjj: Font itolic-17 
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Pr ivate Sub F o riti Load ( ) 
^ He . Caption = "Key Spy " 

■V 1 Creatc an API — t iiwer 
SetTimer He . hTjnd, O , 
i E nd S ub 


1_/Uc jdgidi (jUjb 
, cLuudj 



<û aS jjASjjb: 4 jLwj j4j ^jjbj jûijû>: iwjûJ: Mcix Length -18 
<bijj«: Ij4j 1 0 jaIaj <ûfû jj t juujjjj: Text box uûuujj 

UUMJJJ l:<S<USjJ <U Ûuj 1 0 L«j4J 


True j4S<û« jjjjLgSLu j:jljû<b 33: 4J jiw<u: Multi Line -19 

•*v * ** 

« Coujjj « iJLLwjj ^JjJLuu jlj <U jjbj dljjj: 4J Cujljjj: ij<û ûjjJjj$4A 
. ûuwjjj jJJ d4J LÛ4J ûbljJJJ IjJJ uUjjjixJAA Folse j^JJ jV<b 


jj jb4S4Ajj3 jj ^jJuSj: ^Sujjjj û/ûijjj: jjjjj^jj : icon -20 
jû c j:jSSVLç jib IjjjÛJ « ûj4Sj: 4S ûlujl: 4:<ubj<Uj4j 

^SwSLdS jJ « ÛJjdSiijOl djJU ^SJUAjjSjljÇ Jj4 .w û . j4.j 4J <UJJL)<LJ Ûjlû 

ûûijjj: IjjjÛJ Lood icon £$b <u «j<LijjSjj d<u:jiu« 4Su j4w4J ^ja^ 
<U 4S ASjjljSûwjj: 4Ubj4J jb 4S<Ujji <U ^JJLU j ÛJ4SuJjbJ û Ç ûj i ub 
. ûjj4Sjjjj: l:4S<ûLÛojjb ^jjjû 



4S uSjjLS <u 4j4S<Ujj3 ^j^Sjj: ^jljlu : UUindouus stote -21 
: 4Sjjj^ JÛ4?’ jiw4j « ûj4S:LLu jÛu j b: j I jûh<y jj : 4tbj4J 
<lS<Ujji yjLub Ij4j ÛJjJjd44 <U JÛAÛ 4 olû |»4J jjS<U: O-Normol - 

. ûjj4S::j:: Ijb j4A ûu jj^ 

^jjjjjjS ^jIS 4J ij<û ûjjjjûj44 jb4U4j j4,S<u : 1 - Minimized- 
. Desktopj4u4JTool6Qr a Ljûj4w <Lûj4S«: « b4S<ubj<u 
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ate Svito F 
. Caption 
Creatc an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


l_/Uc jd^idi jUjLi 
r . ' I . . ■ 1 



^jj<jj>S Ai \$jj ûujJjJaa jbiUAj jjSjj : 2- Moximized- 

. ASAwLw Jjlj ÛJjdSjJjJJ ^JJjjA^ <U IJ4S<Wjjî 


WindowState 

lihWli'ilWil ▼ 1 

1 

0 - Normal 

1 - Minimized [ 


2 - Maximized | 


: Jj£ ifjjJûJi ^jjJÛJjS ^jJujj? 


jjljulj j<U jJLuAJ djdSLjJ * jLSjJjS a^p tftjAxj Aj JijAjijS jj Ijj ji) 
jjjjljj- tfJjjjdxjJj ?4,j * ûom j jj jj ^JjS ûûjJjjj J.S * JSj AjLLwJjAS 

. .jjJluj£jj 
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Pr ivate SuJd Form_Load ( ) ^ » 

r V Mer . Capt ion = "Key Spy" . p Ir- idOjcli ,*»Lt jlj 
■ C reate an API-titner ^ 

Ij. r^/r SetTimer He . hwnd, O, 1, dLuU«b Jd flj-iS 

E nci Suto — — 2 — 

uujASdijdi 45 < LUjjtifjj IJuLSijljMjj tjji jjjt jl jjj tJ jl5«j$S tlmjyj 
a jJL)b4Slj^J ^Vaj < jb<U*uJj4S jjljjb ^Lob j&u 4J AjjjbdSlj ^J JûJaJj 

iju<ujLj Jtjteû <u <U Jûlj< jûjAjJjLSJb >j ^j$S 

. ÛjjMjjti 

Private Sub ... 

ûjjMjjti jL Sti$£ bijjj 

End Sub 
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ate Svito F 
. Caption 
Create an 
etTimer M 
Sub 


orm Load ( ) 
= "Key Spy' 
AP I-tJ imer 
e . hvjnd, O, 


Ljdc jdgiiiryiJj 
, <- 1 1 > 4 -> 






Visual Basic 


jLiAlj gj ^ ajiuLjOj aJu --'jj- 1 

I JJLuluAj Lyi Loj jjlfojl 

0 it<ijj4j»u ö^jjluj 
I Jjjjuj&j ^yLoj AJ 0 lfo_jL»L) 

0 lf o jf 
3 <olf 

01100010111011000000101001 

illlOOOlOlOllOHOlllOl 
0000010001 100 1000 1000 
100011000100010000 
110000111000101010101 
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ate Sub F 
. Caption 
Create an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t imer 
e . hvnd, O, 


1_/Uc jdgidi (jUjli 

, çliuxb 




: jLuAlj jj jjLw ^iUJjbjJj JjAj' ^JjSomjjJ * 

Textbox , jLjjAfi j jiwt^j ^s^lLLw ^jLSjjljjb jJumJJ — 1 


-: Commond Bottun 


j,J « wiu«: GdjAui Ajljl>4lj ?4J jjlSAJ jjJ LwUaJ 

uLI&jjJ j jLSJ^iT jjljub uJJjH jAw Jjjjb jLwb « jj^Sj j4wJi (^jLS 4 j 
4Sj U jji jj jiui$J cSjljjy d J j jLuJjJ « ASj fabl jwSjj uwSjj jjljjb jJLuJJ 

wUSoiS jb . 4 Sj jbj Command bottun ^ji jjLjjI^ LxLu . wbjj jbj 

JlSjjljjb juj U jjlwaSlj J.J ^ASjUj^'S j Aw JjjjeJ jlwb $dSj ASjjljjLj j4wAJ 

. . Aaj jbSjj JJJjl^ JAJ»£l 2 j>AJ jLwL ^yjlJ 



JjLLwJjAS jjljjLj _J4J jj jj45jl?JLl? JJJAÖ AuQ jJjJûAA AluJjjj LLwwU 

: AJtjlû fkA» jwjjjj 
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Pr ivate Sub Form Load ( ) 
^ He . Caption = "Key Spy " 

■ m 1 Cireatc an API — t iiwer 
SetTimer He . hwnd, O , 
L^jrEnd Suto 


|_p_lc jdgjdi 
* cLuudj 



i£4S4LujLSjljjS 

jAStUJJÛiUJ <LUÛ 

jLSijljjlû 

»j»JMjJ 

text 

Textl 

?4,S»j{j 

Coption 

Commondl 

(Û<U4J 

Coption 

Commond2 

jjjdJAJ ^ijUj 

Coption 

Commond3 

jrîu^lJ 

Coption 

Commond4 


bijljjLj j4J 4Jlj « tSXt « 1 ^jljjlû jrûJiJ dS JLuLS bijjj 

«jJ iAUx 4J 4S (£4Ûii j4Î j4JJÛA«J JjJÛ j<Û j4w ijjfU 

jLSJ.iL«j4j ( dJ d&dJjAA $J AtUjMtjj 4S 4u j Jj <ûLjji jJj 14 CoptiOfl 

i jjj I ji- ^SdJijjUi ?>4J 4&A»j$4 jLS<UJjLSjljjl ^jjj&u-A.ur' jjU - 

: ÛJ^ASiijiJ 



ûjjiÛUii jUjj- 4S J4J»$lu j4 J jLSijjS (yjjuujj 4j jJjSii Luiii ÛijU Lu û û 
jAu^ dJUJjLulj ^jlJLU JJ jJ4SiJJ<LuG djUSji 4S4J j4A <Ûj^J jj 
.jL&li « j$34J4j (^ijUj « (4Û4U4J *(»4Sijlû:«$lj«$j dij « jU^- 
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Pr ivate Suto Forrti Load ( ) 
He . Caption = "Key Spy r ' 
1 Creeite an AP I — t i me xr 
SetTimer He . hwnd, O, 
End Suto 


|_p_lc jdgjdi 
, cLuudj 



r<»iSin <U AjLtJjLûlj jAj 4jL«Ijj j<U 4 SJ JjAA jAuiAJ jljSSaiSAJ 4S 
aS LUJH jlSjjjS JJ jU^SLu « ÛJjASjJjJJ UuaS<u 

..jjjjjjJJlJ jU^ 

AJ JûJjAi ijAjjASj jjs (Juunjj JJjAM AJ ÛjJJJ Gjj4u jLSjjjS a hujj'jJ 
^AiSjJ jAuAJ dûSilJJ 4J ^J « jGdjljuU 4J ASAJjAA jAuAJ jijSSulSJjtJ 
\£j$jj jj * ( ^aSj^U ) 4j aj<u»'G jS i aSj Commandl ^aSjj jjiUj jû 

. . JJAjJjSj JjS (gjjLUjj iJJjAzj AJ 
i Amjjj )$)j\$J JtişS tjJi j»Aj dSj^ljui^j JjJJ jjijAA jlfjj <U IJU^JU 

Textl.text=" J A£. j o>i A joLjU " 


f* Piojectl - Foiml (Code) 




Commandl 

▼ 


Click 

▼ 


Private Sub Commandl_Click ( ) 
Textl . Text="|_j_U j>_jl o 1 — i ji_ 5 "f 
End Sufo 



AS AiAjuujj 5<U jLu*u<U<W Textl AS ûûljj jjAj 4 luJ£J tJJji) 

<U aSjjIjuL jj$ 4 jjjSLu-jj ( ) ûLJIU- ^jUlJ jjLuUIj aSaajşJ AJ 

JAjUÎuJ jLwL « tjxujj jU Text ijJAdxu IJ tjuJ iS « JtStJAj. lu 
« AS AJuA Ajjt? jj) jJA " " jljjJ ^tjijmjj jJj <L)lS)i aS JjUlJ jUj'll hiSJJ 
uJjujjj IjjQjl^ jji " " j»AJ jljjj AJ JuuJjjJ ûjjtStijti AS j<ULÛ jtj IJ tjjj 

: AJjJtjjLu j»4 J JStijS « 
" «>146 jtjjtj jbjLj " = 4 j 4jLuS4J û<U uijmijj j&jJjm j\j Sjljuijj 
. jJ ^SLum jJ jjjjjSi JSA La <G$J>- J jl*u jJ$lju$j j4j ÛUI^JJJ 4S 
^jUjAS i^AtSji jjljwU j4ui 4J UidSbjJ JjLaj 4j jtM Ij tSiijS ^jiM Jj I tmj) 
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Pr ivate SuJd Form_Load ( ) 
f* V. Me.Captiorx = "Key Spy" . p Ir- idOiclj ,*ib jlj 
■ Create an API-timer ^ 

Ij. SetTimer He . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

/jT E nd Suto — — * — — 

: JjjS ijjj ,» 4 Û j4Sj ( |Û 4 i 4 AJ )AJlj Command2 

Textl . Text="20" 

,jiL«j43 ^4«SjJ jAwAl djdSLdi «jl*«4J » j4»J U 45jjjS ^Jj4jb 4j JjlJj: 

: JLujjj JjjS JjJJ ?>AJ j ( j/3JJAJ ipjLj ) <Ulj JSj Command3 JI5 j ^JUjuj 
Textl . text="SanaTe 1:07301167629" 

4J 45 dJALuijj jj J jUlwAJJU Text 1 45 Cujljj j$4j ÛÛJJJ UjjuJ 

4û1jjj Ij4j Jj5 Jbj j»jji 4 J jbjJ ^Sj Textbox j454j «jjLubU U454«jji 
U Name jb ^JÛaujaujG 4J ûj^- ^SG aj 4 «lu 4 JJ 4 Jajlw j4j j 44 j Text2 
45 Ûj45ujjbj jjuuujj JjjJjM j4j ÛÛJJJ « 4JJjlw j4J j 4A « ÛJjjljJ ^45^Jjb 
4id5 4 j!j 454ibj44 a ijj5 4J ûj$45j jjj Ulu ^4SA3«j ûo$4jjj 

. . 4SauSjJjaU4J jJj5 

4j!j 45j Command4 a :Gj5 j j»ajl$f a ibj44 ^4«S$J j4u4î bUllLjJ LLui 
jjjjjj GLSjUj 45j^lj5ujjjJ 4«bj4J 4) 45 j^jjJ 4Jjjj5 ^aj4jjj ( jSu^-U ) 
î»4j j«bj4J45 . . a jGj5 jJjJjJJ 4ij^ j 454«bj4J «jjGj5 <jJJJb4Slj 4Jl j 

. . ÛJjujjjJ 4JJjlû 

Private sub Command4_Click ( ) 

End ^ 

End sub 

u î iiii>Ij (£94 4lujJ j 4iL54«bj4j ^jGj5 (b-bbjllj End ^JJJj Glj45 

. 4S4«bj4J 

yljjû j4w Jjjju jjjJjS jUiujjj 45 ^4J4«bj4j j4j ^jj4ijj51aG jj LUui 
jb 45 j Start j4w4) u4j* ^SuiS jLub j JjJj45U Run u iU.J _j jLS^luJ 

.. JjIjU F 5 i£4«SjJ jp-j4li«ilj 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — txmer 
SetTimer He . hwnd, O , 
End Svito 


1_/Uc jdgidi (jUjli 

, cLuudj Jd 


jtujjj « djAjjjiaJû aj aSj JidS jÛdjUjd’a ^jLSA^j <U ASdJjAA jLub 
. . wOjd&JjJJ I JjSAÛçwçj ^JjJLuy <U <ÛUj<Û jij Û4jJÛ 
4S4jUj 4,J 42 ( j3U « jjjjjLu dJJjjjJ j4J j$£ 4S ^J^Aj j4m 4>uJJ I < t«M 1 
<U4aLjj4J j4J jjJJjl^AJ 4J jÛJijS ^iuy^j^j 4j4& 4J uJ4J LlUj jj^JJjiuJÛ 
,»4 j jûj4j « ûxu^J IJj4w4J £>LSjljjS wujluJ jJ ^Sjjû- ^JjAJ jj « jjjjLy 

: 4 jjLu 

*♦ J«* 

j4u4J u4ç ^jSLUS i JjfjJj4Sj File j jlS4iuU ^jjju j4w JjjjçJ 

.. 4SJ Save Proiect As 
♦ — ' 


File 


Newi Project 

Ctrl+N 

& Open Project... 

Ctrl+O 

Add Project... 

Remove Project 

,/ 

H Save Project 

Save Project As... 

Şave Forml 

Ctrl+S 

Save Forml As... 



4jfU> jj 4S4«jji jj uLSjJ J,Jjlj ^ljlJ ÛJj4w Jj4ijjSjJ dAJJui jjiujj 
jjjjlj ^ljlj jLuU « 45 j Save j4u4t u4.- ^SLdS UjI^j 4) My Prol 4u^jj 
u4ç ^SolS 1ULjljJ4U i My Prol « 4u$Jj 4 j>4jjj dSjjjjJ ijj44 jj ÛLSJJ 

.. 45j Save j4u4J 
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. > 


Pr ivate Svlfc> Foriti Load ( ) 

.Caption = "Key Spy " 
Creat-e an API — tixner 
etTimer He . hwnd, O , 
ncl S ub 


1_/Uc jdgicn Jljjlj 

, cLuudj 




I J j5 ^AJiULjjiU Jjj^ 45 ûujjjLu UJ 4 J J$»uû 4 J 4 j44L)j4j jdJ uJjijJ jtStj 
i£JLlj}4J ^4^4) j wwj4j Setup ^jlJj5 4J >LuJ>J j ûLSjjLS 
i 45 j 4j!jLSj4A Jj4iûj54j Ii)^uiJ4J 

Make pro ject . EXE j4«4) u4£ ^SLdS ldJ$4) j$Jj45j File >ûia) 
j4m4) u4ç i>wi5 ^ >j|j $j (ySjjlj I4J$4) Jj4ijj5dj ûJujG ^SdJJ^lw , 4So 

. 45j Save 

♦ 


2 
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Private Suto Fortn Load ( ) 

' -i = "Ve»TT c?r»TT" _l_ . .. 


W Me . Capt ±«=.rx = "Key Spy" . n]c IdOJcti L» 3 Lî> 

■ Create an API-timer LJ J T w “ V 

SetTimer He . hwnd, 0 , 1 , «.-!,.. td » Jd flj-iS 

l /jJ E nd S uto — — — 


Command & 4jjj J jUj4*3 £4*Sji ^jlSjjljjb j4u43 dJjJUbjJU -2 


: Image 


t£$b 4j jLSb j j’uijJlJ IjUj^ jb AJ dJJdjjj ji.J J s$4ia\jÊ$jJ f>AJ t£j& Aj 
. jjASjJ (7S4ŞJ jJjjdS 3 jLSVjl^ j 44 3J jLui^JJ 4SJLU3 J^diUjdS ^uuS^J 
« tj4jj4?tJJjtS $J j^UjLûjJLU jjASuu^ J3 Ljj jj (^AtS^J JJ j 4 A jLSLj 

« ijdjJdSj l$jj jjSJJJj^jJ ubjj l$jj jjS<U AJL jjAJ j44 ^jjjSlujjJ 3 J GjjJu 
j 4;’ ^jSulS lj File ^jLuJ 4J 3 jlSdljo) ^luju j4u Jjjçju JjLS ?>dJ jj 4jjj 
, tjtjASJ Jjj ^JjlJjLIw <jS 4 jjj 3 jJ J 3 J 3 4J j 4SJ new Pr o j ect j4m43 
jjljjb j4u4J Û LdSb jJ j General jLSduuuS jjljjLj j4m tjjM jLwb 
jjljjb 10 jLub , ujud uwjjJ lJ4S<Ujjj jLj 4J tJtjA t jJ , 4Sd Imageduj 
tj4d (jjlJlSb ÛjUJJ f^4J, 4SJ tldj Command Bottun jUjAS J4aS$1 
biul S Jj^b jj 4 Sdj£ , ûdiStd Jbj jLS<uSjj jjjiLu^S ^LSjj <b aS ûj 
ÛJj4dtt j uJdSjJ Jbj Command Bottun jbj43 ^JUSjJ ^Sujljjb 
jljjAA 4S 4blj Jjdj J «3 IjJjÛJ . uJdSb Jbj jJjS;U :S ^lSjj Aj j3jj\j4j 
4d\j iUJ.S<b ^AaÊjS aS £tj4jj4d4l jdSb ^4jj& jUjdS b<b jlSuuS^J 
4S iJJjjjIm 4b dSJjjjiS jiJ 4Sb (£Jbj d4J d4J 4J 3 J . Commandl 
Commandl djlj ûdjSdjtj Jjt- 4j ÛJUjG ^JjUj jbdSjJjJU 

3 Command5 3 Command4 3 Command3j Command2 

..^□ÎSG Command7 ^Commandö 
uSbj JjJjl^j- i$4SAjjJ djj , 4S<UjjÇ*3 jj JjS Jbj ûiLSjjljub i£tjAj Jub lûuuU 

.. 4JSJ 

. . aSj 3 J jbj^jjl^- ^AilÛAÛuu ^Jj jLub 
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Pr ivate Suto Form Load ( ) 

’W He . Capt ion = "Key Spy" p lr- idoicti L* jlj 
■V ■ Create an API-timer u J x w 
L_ £ 0 ? SetTimer He . hwnd, 0 , 1 , s-1 , i d > /jd a\_k5 

I .wEnd S uto ** ** - 



i£4J6£jL2 f>AJ 4 ijSlp’djl? j jLuûiSjj jîl . 
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Pr ivate Sub Forrti Load ( ) 
^ Me . Caption = "Key Spy ' 1 
an API — t imer 
setTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi yUjli 

, <-1 niidj jjd 


r 



J.S ^SUjLS <ÛL)UjAS UUS<U jAA ^dj jJ LLbû 

j<lw<U ULdSbhdJ Aj jj . . jruu^jj jj i£i$S ûLjJ ûLSj IjdSJjjj <U JjLSjljj^ 
«j AS4ÛJ3 ^djjjLu Jj dJJjJÛ dS . ASj Commandl ,» 4 S<U a iL«j<Û 
. . ûjjju^jjj <UjLu ?>Aj !»<sSj:aS I Jj$<U JÛJjSj jj£ ^^Luuû ipj <Jsj <u ^jj<û 


V *** V 

Imagel . Visible=False 


: ÛJjwujJJJ JJJ^uuû ?>JJ 


j<U ^JdJijAjjjSUpşj j Î aS<UU- ^<UJS<Lii$ i£)ljuU £$Li Imagel IJJjL 
LûuwJ » Visible <Ulj dSJjjj ^fjûUjLiu dluJJJ dS ^A,jJ UxUi A ujIÛ 


^jjUiUjLÛu dluUJJ True lj<Lj dS«j<LjjjLw «J ûû ûLp-jÛFalse jdSdj 
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Pr ivate Sub Foriti Load ( ) ^ j w b. 

V Mer . Capt ±on = "Key Spy" . p Ir- idOJclj ,*iL» jlj 
■V ■ Create an API-timer 

— /-^r SetTimer He . hwnd, O, 1, dLuU«b Jd flj-iS 

l_^rEnd Sub ~ 

. 4Sjj4jlJÛLLu 4Jl^ Command2 ^iUjJÎ i£4aSjj jj 4J($4S » 4S4.û$ 

s Auijjj JiJjljû- ^jjjS f«û 

Imagel . visible=True 

J Top JjAaxw 4,2 ijw jÛ($JJJ Top J^Jj4w jj 4&4jj$ ^jjûV^- jj Luûû 
^ J^4ÛjSjJ jG4J4^$J L$j4J 4S4 «j^ 4 ;,£jj4ij4j4J « jJjSjjJ^ 4Sjjjj 
ÛÛJJJ J$Jj4u jj jJûV^ 4 j jj « jjjj LLwLj iJûljJ 4) 4S j$4ûjj 4jlj4Jtl) 
^iUSfJ j4u4J LidSûjJ 4ûlj4S « ÛÛJ ( + ) 4 j ÛÛjjJ JjJjl^j- jj _j ûuJ ( - ) 4J 
u jdiV^ 4Jlj juijjj jj ^dSjjjS ^Jj4j jj 45 j Command3 ^4;ûw ^iUjJÎ 

s dJtjlw j»4J « J^Jj4w 

Imagel . top=imagel . top -50 

^SG ÛuJ$ju 4S ^juSÛJ^iwy Top j4J4S4jjj jljljjlû ^lû Imagel iJJjûi 

. .4S4J 5 0 - ( ^43Lu 4« ) 

Left <jû 44 uu 4J Jfw jû($ÛJJ wulj jj 4S4ij$ ^JJûV^- jj L û u û 
J ( - ) 4J JûJj4j u4g- j ûulj ^V$J 4S4jjj (jidjLi^J- 4ÛUJJ 4S uJjSjjij 
jj ûûi^-JJ ÛÛJ — j4^4j j ûwlj j¥$J ûjj^J-JJ Ij4j CÛj + j4^4j 4S ( + ) 
^jjjS f>4j ( ûwlj ) 4Ûlj Comman 4 j»Jjl$£ ^UjJÛ i£4«S$d£J ûûûû 4jjj « u4ç 

s 4wjÛJ JjJjl^- 

Imagel . Left=imagel . Left+50 

4S ûj4Sjj 4S4jj$ 4J lj j^4j4«S^J f<4J JjbAJ s Command5 JjlujJ ^4*SjJ 

. . ( 0 , 0 ) j4w jj 4wa j 
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Private Suto Fortti Load ( ) ' — 

'W, He - Cap t ion = "Key Spy" p lr- idOiclj ,*iL» jlj 

* Create an API-timer LJ J X W JjS y & 

- /-^r SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

/jT E nd Suto — — — — 

Left j Top (Jj&axu ji j4A ûjJii _j ûjjwyjjjj 4 j »jlu f>AJ J*JjAJ 4S 

: ( jjw ) <U jjASj jLwS4J 4S4j Jj 

Imagel . Top=0 
Imagel . Lef t=0 

( - )4j jjASj Le f t JjAûmm ÛoJj: y 4£ u 4 SJLU 5 ^iJûV^ jj LuwU 

: ÛJj-yijj J ^4SjJj)S 4JJ£ku f»AJ 4S 

Imagel . Left=imagel . Left-50 

^jLjJÛ ^4*SjJ ^jljulû jAw4J JidSijJJ JjJjl^j- jj ASAxJj jiJ Lu L û 

Iyj4j 45 4tf$jj 4 Sjj$S J^Jjl^ i£Jj»jlw j»4J t 4 Sj Command7j»4J$4*' 

: AJJjlw ,»4j ( + )4uUJJ ( - ) i£4iLLû 

Imagel . Top=imagel+50 

: Command 8 4S4.Û9 ^ÛJjSjj^jS $j JjS 
4 S jjjSjJjjj Width (jiLj JjAûjm j Height £jj4J JjAûjjw 4J J^w IjjjjJ 
Jjjjij ^jL ^ ^jj4J ^jL jjJj 44 4J jlSjjljjL ^JjL4*û ^jjjSjjj^S 4J 4J4uLj 

: AJijjjj j»4J 

Imagel . Height=imagel . Height+100 
Imagel . width=imagel .Width+100 

: Command9 JjAjijSSjûtJ 
( + ) jLukÛ ^jjjjjS 4J j»V4J LÛjwyjjjJ ^4SJJ^S jj <tijM ^jL- LjJ j44 JjjAj 

: AJijjJi j»4J ( - )4J 
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Pr ivate S uto Foriti Load ( ) 

= . Caption == "Key Spy rl 
1 Create an API — t imer 
îetTiKier I-Ie . hwnd, O, 
'End Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj Jd 


Imagel . Height=imagel . Height-100 
Imagel . width=imagel . Width-100 


<U i£» »j£ j»4J ASJmUjAJ <U »jij»» jj QuaJ 

i CommandlO iJUJbJJ 

Private sub commandlO_click ( ) 

End 

End sub 


JU jLSL) « ASiUljj <U £»jij ijSjfJ Lj j» »jSjl» F 5 I < tiM 1 

. . JlLuj dSAJûj (yjljjZ jdfj CLdS jLS<ul$J 
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Pr ivate Suto Foriti Load ( ) 
He . Capt ion = rr Key Spy rl 
V V 1 Create an AP X — timer 
SetTimer He . hwnd, O , 
FEncl Suto 


l_pic jdgjdi 


dLuU<b 




AS (jjUj 4) 4J44 ^ljjl jj} <,S4JJjUj jljJjJJ 

:«jbJ tJ4J4l£j- fk<U ^ljjl 4JJJÛ44 i£4j>«j 


+ 32767 jj-32768 4J 

jLS4xu«!j JjUj 

(ûjU2 ) 

♦♦ ♦ 

Integer 

38 e-3 .40282341 

-45 e -1 . 4012 98 jj 

jLS4xuw!j » jjUj 

( ûjU 4 ) 

♦♦ ♦ 

Long 


. jLS4û-; 4) dlk«js 

String 



Double 

Currency 

Variant 


: jLSjjljjl 


. .JjJ JiJj!^ ipijS j»4j a îûj4w 

Dim Empname As String 

j JAj^ljjS j4w4l * JiuJ4J Jjjjjd 4j ulJJJ Jlj44 IJJjiî Dirn ^jUjJÎ 
String ^4w_j LAj^j 4A * 4Sj$!jjS jj 4Sj$b jSj Empname 

. . 4j4Sj^!j^S 

jJ ^4J4j>«j 

Dim I As integer 

: UbJJ J j^424jbUj4d ^4j jJLSjj 4J j Ij^S ^JÛb4S !j 

Dim - Globe - Static 
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FN Pr ivate S uto Footi Load ( ) 
f* -w Me . Capt ion = "Key Spy" p lc- idOicti ,*tLi jlj 
■ Creatc an API-titner J x w 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

Suto - * 


: jUj<U<Û _j jLSj^lj^S ^jjLJ 

jJjLû-yjjuJ 34 ) 45uS4j Scope of Var iaable jLSj^ljlji ^jLS 
^j^ijUAJ 4J ijl JLtJj jLSj^lj^l ^ÛLS ^j^iu 3 , 4iU4& jLSj^lj^l 4 S 

■ ■ iSj^AJJ jiujil ^j^ULj 
: ijAuAJ Aj jjj&iJ jLu4i<U ^iu AJ jLûLSijljfS 

jiSimLuj£ ijljjS- 1 
dSAtjjA ijlvLi jAmAJ jlSijljjS -2 

. jLSAluijAS jjljsÛ jLuÛ jAuJJ jlÛJ^Ij^S- 3 
: jLS4_u7mS ij^S -1 

i^wdSJjLS ( 4J4A iJiSiJ IjSjjmJjJ 4jUj4j jjaA& 4j £JJij J4J J3IJ3S j*4j 
4j 3 « jjjû^jJjU4i li4.S4jUj4J 4j 4S jjJjli^S 3 JjL3 3^j JJAJ& Jj Jjuuij J4J 
ij^LjwU .3 jLSj^ljSuu^jJ iUUjjJ ^iJjSUuÛu ^uLS 4J j^^Llujjj IJUj^u 

. . «3«jJJ û.u>jj 4S4iUj4J 4) 3SJ3LÛ 
3U ^ tjJjûjSj jjj LiAJJjÛjAJ 34 p7 i7iS ^Ij^S j4m 4J j JL) U 4 S !j ûmJjjJ 
J3S ujjjjşj jijAsû 4j 3U 4) 4ÛI3 Code Module l*Lu*3iA«Uj4J ^ijAsû 4j 

ûiju^jU UjUû*yJj4S 3 j!jjU 3 J 
4j!j^3jJ JÛ4r ^4i < IJÛU4iUj4J 4J ^7 <7iS jt$S ^jiL i UjLSAJ 3J I niijl 
^J^S ^Lui^j ^jjAai 4J (3J34iJjS 3J LÛJj4w . . jLuJaSjJ 3J L^j4Û « jjjjjjjlj 

: 4&J 'a^AÛj' AiljÛjAti ?4J JjJiS 
u 4 £ (^SoiS IJÛ34J J3Jj4SjPr o j ect ^LuJ 3 jLSiLUaJ JjjjJij Am ijyşti 
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P r ivat e 


Suto F o rm Load ( ) 




. Caption = "Key Spy r ' 
Create an API — t imer 
etTimer He . hwnd, O , 
ncl S uto 


, ^ rr 

ljlJc jdgjdj jbjb 
, cLujj«b Jdjjai 


. . ûJujG A5j Add ModulejAuiA) 


| Project 

h 

Add 

Form y 

ta 

Add 

MDIForm ,/ 

4 

Add 

Module 

& 

Add 

Çlass Module 

■i 

Add 

User Control 

m 

Add 

Property Page 


Add 

User Document 


Add 

DHTML Page 


^j4iwlj jtujjj » 4 Sj Open ^SolS ^JjJju) 4A Module bNew ^JJJJ 
i£jj4jû4j <U _j .. GeneralJjAluj^JJ ^iuaj ipj<Jsj4J 

. . ijAiJjSil j£j4*lf4i j ijSSijjSjj)} 4J 4S Ujjiiijdi IjULjGjj^jJ i£i^ijij$i 
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Pr ivate Sub Form Load ( ) 
^ He.Caption = "Key Spy " 

1 Create an APX — timeir 
SetTimer He . hwnd, O , 
L^jrEnca Suto 


[_p_Lr= jdgjcu 
, cLuudj 



dxjLS ijjJ^Siu jL«j (jSdJAtSji 4,2 jj jJj J JU I J Lia«wJ 4& £ 

4& LUJ4JiSii\j jLiWJ « ÛJ 4&H 4&4,A&şi j4,u<i,2 ÛUIS j ÛJdSji 'jjjif i jl J.S<Uljj4U 

. . |j jb işijjjjijjjj ij 4lui$ j4j jUASjjJÛ^utjS bLj 
jjljub <U jLuLj i$iji&4 New Project l$$j (ySdJijjjJ ijLS f>4j jj 
* dSJjjjj jj ASj Jbj Command bottun jUjd’2 ^SdJA^J IjûLSJluIuS 
dSjjdjbdilj JÎiAaJJ « jiujjj IJLU ^SjjjS JijdJjJ 4&J jijuAi ^SiiSJjii jLub 

: JLujjj IdJ^jJ . . 4 S<uS$j Jûlj dSjjljub jj 

Private sub commandl_click ( ) 

If isconnected [ ] =True Then 

MsgbOX [ M o j 4_jLJ > j ULi_i_j L_) ULui o j_) L_) Ci *l£ o j Lj j_)_)_« 11 ] 

Else 

MsgbOX [ ” o j ULLJj ULL)_j l_) l_)_J Llj oj_)L_)L)LJ öjlJ j-)-)-« >j 11 ] 

End if 
End sub 

(yÎMijj JijAzj 4J Jijij\j& jj J&J Forml«l jAuJJ dUiSilii jLub 

^J 4.? Jj^JSJ I JJ^Ai « 4&4iijjj JJ 0 I i7iS ^JJÛbdSlj 4J û JjjIÛ ^J^S 
Ijjjûî" JjjjbdA General IJjjdJ ,ijtj4Sj 4&4 mSjjjjaj& j4&tj4,şj4j 
JjljjjjU û General ^ijdj Jib « "dSJUjj^ 4j jjjjjj ^iîS ^SLuijbdSlj 

jj jLuwb i<UAÎ aS ^jjjS jdJ JÛIj * ÛÛU4JJ jjJ-AJ tjtjJuuJJ dJbJLw JJ 

JtjJjij&L? 'jj ûjjuoSjj ûlliUA _j j^jjl^- Jlu^jj ÛIjjjj , dSdjUjJÛ ^AaSjJ 
JJ jdA L u uJ . . ASJjjjj 0 7 iTi*) yjjJaS ^ « jLSdjUjJj 4 j($ jlSjjljjb S4j& 

. . jşwjjjJ JjjS j»4J jp' jdlwlj Ij tjijAdu J4&ijJi 
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J> 


Private Siib Form Load ( ) 

. Caption = "Key Spy r ' 
Create an AP I — timer 
etTimer He . hwnd, O , 

E nd SviJd 


1_/Uc jdgidi Jljjlj 

, cLuudj 






General 



4 Sê&jS 


Private Sub Corntnandl_Click ( ) 
If IsConnected ( ) = True Then 
HsgBOX ("tj 4Xj_ >j dJULi-j 4_ 
Else 

HsgBox ("tj 4Xj_jj 4_ 

End If 
End Sub 


t' 14 ' 4 1 Cj 4. 

j Cjjj f ş ' 4 • 


Private Sub Form Load() 





Public Function IsConnected ( ) As Boolean 

Dim TRasCon ( 255 ) As RASCONN95 

Dim lg As Long 

Dim lpcon As Long 

Dim RetVal As Long 

Dim Tstatus As RASCONNSTATUS95 

TRasCon ( 0 ) . dwSize = 412 
ig = 256 * TRasCon(O) .dwSize 

RetVal = RasEnumConnections ( TRasCon ( 0 ) , lg, 
ipcon ) 

If RetVal <> 0 Then 


l+_)(*& A %$#@ !<« 45 »> !@#$% A &*()_+I 


Jk 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — txmer 
etTimer He . hwnd, O , 

E nd S uto 


ljlLc jdgidj (jUjU 

r . ' I . . ■ 1 4—1 



MsgBox "ERROR" 

Exit Function 
End If 

Tstatus . dwSize = 160 

RetVal = RasGetConnectStatus ( TRasCon ( 0 ) . 

hRasCon, Tstatus) 

If Tstatus . RasConnState = &H2000 Then 
IsConnected = True 
Else 

IsConnected = False 
End If 

End Function 


jîLj Jjjj « 4 £<wL)j4j Jj jjjjj ^&ûjûbj^lj ijjjU jj Jj l?jLS I niijl 
^jJ^S j»4j Project (jluoJ i^LSjj JJ Jj£ Jbj û Moduie a «4J ^jjJj 

. . 4wjjj IJJjJj JjJjl^- 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP I — t-imer 
SetTimer He . hwnd, O , 
Exxd Suto 


1_/Uc jdjidl Jljjlj 


dLuucb 


Public Declare Function RasEnumConnections 
Lib "RasApi32.dll" Alias 

"RasEnumConnectionsA" (lpRasCon As Any, lpcb 
As Long, lpcConnect ions As Long) As Long 

Public Declare Function RasGetConnectStatus 
Lib "RasApi32.dll" Alias 

"RasGetConnectStatusA" (ByVal hRasCon As 
Long, lpStatus As Any) As Long 
Public Const RAS95_MaxEntryName = 256 
Public Const RAS95_MaxDeviceType = 16 
Public Const RAS95_MaxDeviceName = 32 

Public Type RASCONN95 
dwSize As Long 
hRasCon As Long 

szEntryName (RAS95_MaxEntryName ) As Byte 
szDeviceType (RAS95_MaxDeviceType ) As Byte 
szDeviceName (RAS95_MaxDeviceName ) As Byte 
End Type 

Public Type RASCONNSTATUS95 
dwSize As Long 
RasConnState As Long 
dwError As Long 

szDeviceType (RAS95_MaxDeviceType ) As Byte 
szDeviceName (RAS95_MaxDeviceName ) As Byte 
End Type 


u E5 QuoJ .. jLSûifS <U jLu& JuL 

iS A j Lj fjS, OS « iS A4 Lj 4 J 

iS uJj AJdSillj luJ ijddJjSii dbuuS jijuulj jjlu »i i JSj Comman 1 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — t ixner 
etTimer He . hwnd, O , 
'End Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj 




,U tş&jjjjAljjj 4J ijiuaş J4J ÛASjjd J£U4£S 


: Jjlj JJ jiolw JÛJJ^ jj^j LiwLj ^hJ U<Uw^j ftAi ^J$4j jljjj<U 

b Module ^ywAj <U . JjjAjÛjAj ^ÛJibJSlj sj JaS -1 

. 4S<Uljj<U $j ^^j&ûJûb jSIj jb<UJÛ . lyw^j jb JSjjjS 
jUJASjJfS ÛJStUjj^ ^ General JJ 4S jSbij^i jj jJÛbjllj -2 
jj jdxulj J.S dSdjjp jj JHS ^jJûbjSij <u j$j ûjUjIÛ jbJUJÛ . yjyjj 

uJjujjii ijijAjudl 

iyûwb j Juy jJ j^j jJÛbJlij JûJaJj . JSfaSji ^jljwb jj JÛbjSij -3 

^jjjb ^ySLuuS jj ^jj J w J.J j jj^SbS iyûb JJ JÛbJiSlj jLuu jS 4 jLSjjijjb 

. . ju JJ LLSb iyiLSjjlbjj IjbLuS j»J.i yjjû ijS.Uy jj J.J JÛJjJj iS 4 ijJjJjSj 
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Pr ivate Sub Form Load ( ) 
^ He.Caption = "Key Spy " 

1 Cireate an API — timer 
SetTimer He . hwnd, O , 
L^jrEnd Suto 


i* 

l_p_lc jdgjcu (jujLt 
, cLuudj 



:( 2 ) ( ( j-ijyJJÎLu jJ ) ) jÛJjU^Slj j<U<U jJ (jS<U<UUj<U 
uASjj 4 j$»JU$S ^LSLS ^ULuJ çjjiJjşÊ 4J 4J4 jLj jjjjjjjblj 4S jJ<U<UUj<U j» Jj 
jj4^JJ jJlJÛ jU4S<U j44 ^ JjjpL^SLu jUjjj (ju 4J 4S U4JJ^.hS 4J « 

: JJJ^iS î»Aj< jJ4JJjU4J ^jjjjS <U 
yj 5 jlS<U.LÎ.US jjljuU j4j JjjfU j j$jj45j ijjj ^Jjjjjjj I j F i 1 e 4J 

jLwL « 4S<Ujjj jj 4Su JUj CommandButton jUjJÎ ^<uSjJ (jjljuU 
. .j_jjjl^ ^4S4jjjdj^ « 45u jUj jû /\ Label 


: jLSjjljuU jj 45 j ^ aUj- <ûLu J j<uj 4 jû ^4j LLuj 


^jisjijji 

uAjum 

jLSjjljuU 

ö 4L 4_iÎ) Liî) ti 4_î_î_) 0 

ö 

Caption 

Label 

4_SL ) j 1 ) ^ dJ_x_$ 5 o j 

Backcolor 


True 

Right to Left 


300 

Top 


2000 

Width 


10224 By 768 

Caption 

Commandl 

800 By 600 

Caption 

Command2 

640 By 480 

Caption 

Command3 


■4*J jLS<lujLSjljjS 4 j jUû^lujS J«U 
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Pr ivate Suto Foriti Load ( ) 
He . Caption = "Key Spy " 
■ Create an AP I — timer 
SetTimer He . hund, O, 
'End Suto 


1_/Uc jdgidi (jUjli 

, cLuudj 




Al ^JtJ i <U jJdJU $) I imjl 

jLwlu 4 JlSu Jbj Add Module ^IwS ^jjUUASlj ^Ssiw <U b Pro ject 

: JLwjjj ^jjjS i»4J ^4 ImIj 


32 


Public Const EWX_LOGOFF = 0 
Public Const EWX_SHUTDOWN = 

Public Const EWX_REBOOT = 2 
Public Const EWX_FORCE = 4 
Public Const CCDEVICENAME = 

Public Const CCFORMNAME =32 
Public Const DM_BITSPERPEL = &H40000 
Public Const DM_PELSWIDTH = &H80000 
Public Const DM_PELSHEIGHT = &H100000 
Public Const CDS_UPDATEREGISTRY = &H1 
Public Const CDS_TEST = &H4 
Public Const DISP_CHANGE_SUCCESSFUL = 
Public Const DISP_CHANGE_RESTART = 1 

Type typDevMODE 


dmDeviceName As 

String 

f * CCDE' 

dmSpecVersion 

As 

Integer 

dmDriverVersion 

As 

Integer 

dmSize 

As 

Integer 

dmDriverExtra 

As 

Integer 

dmFields 

As 

Long 

dmOrientation 

As 

Integer 

dmPaperSize 

As 

Integer 

dmPaperLength 

As 

Integer 

dmPaperWidth 

As 

Integer 

dmScale 

As 

Integer 

dmCopies 

As 

Integer 

dmDef aultSource 

As 

Integer 

dmPrintQuality 

As 

Integer 

l+_)(*& A %$#@!«< 

50 

»> ! 


»> !@#$% A &*()_+I 


r v" 

,W Encl 


Pr ivate Sub Foriti Load ( ) 

. Caption = "Key Spy " 
Create ein AP I — t imer 
etTimer He . hwnd, O , 

S uto 


1_/Uc jdgidi Jljjlj 
* dLuU<b Jd 


dmColor 

As 

Integer 

dmDuplex 

As 

Integer 

dmYResolution 

As 

Integer 

dmTTOption 

As 

Integer 

dmCollate 

As 

Integer 

dmFormName 

As 

String * CCFORMNAME 

dmUnusedPadding 

As 

Integer 

dmBitsPerPel 

As 

Integer 

dmPelsWidth 

As 

Long 

dmPelsHeight 

As 

Long 

dmDisplayFlags 

As 

Long 

dmDisplayFrequency As 

Long 

End Type 



Declare Function 

EnumDisplaySettings Lib 

"user32" Alias "EnumDisplaySettingsA" (ByVal 

lpszDeviceName As 

Long, 

ByVal iModeNum As 

Long, lptypDevMode 

As Any) As Boolean 

Declare Function 

ChangeDisplaySettings Lib 

"user32" Alias 

"ChangeDisplaySettingsA" 

( lptypDevMode As Any, ByVal dwFlags As Long) 

As Long 



Declare Function 

ExitWindowsEx Lib "user32" 

(ByVal uFlags As 

Long, 

ByVal dwReserved As 

Long) As Long 




jj t ASj 1024 By 768 4 jI_$ Commandl jAmJJ dUiSbii jLwb 
$Aj jj JjASAÊLu JAÛsji jîbjAJ » jjljjlj $AJ j JtJj ûiûJûbA^lj 

t ÛJ A SiJ Ajbj4j ( £AaS$J ^Aj j AuA2 ÛU iS J l ub 4jlj « AS ^AJIjUA^ 


. AtAjljçU jAj ^J uJj jSti $J Û4SA2L2 ^JJJJJ 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Create axi APX — timer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi (jljjli 

, dLwUdJ 


: b Commandl 4) j»4J Lûtöj 

Dim typDevM As typDevMODE 
Dim lngResult As Long 
Dim intAns As Integer 

IngResult =EnumDisplaySettings ( 0 , 0, typDevM) 

With typDevM 

. dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT 
.dmPelsWidth = 1024 
. dmPelsHeight = 768 
End With 

IngResult = ChangeDisplaySettings (typDevM, 
CDS_TEST) 

Select Case IngResult 

Case D I SP_CHANGE_RE S TART 

intAns = MsgBox("You must restart your 
computer to apply these changes." & _ 

vbCrLf & vbCrLf & "Do you want to 
restart now?", _ 

vbYesNo + vbSystemModal, "Screen Resolution") 
If intAns = vbYes Then Call 
ExitWindowsEx (EWX_REB00T, 0) 

Case DISP_CHANGE_SUCCESSFUL 

Call ChangeDisplaySettings (typDevM, 

CDS_UPDATEREGISTRY ) 

MsgBOX " Ci La I Jij i-a i 4 j j I j C) iii I 1 iJLJLj j " , 

vblnf ormation, "Resolution Changed" 

Case Else 

MsgBox "Mode not supported", 

vbSystemModal, "Error" 

End Select 
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Pr ivate Sub Forrti Load ( ) 
He . Caption = "Key Spy " 
■ Create an AP X — t i me ar 
SetTimer He . hwnd, O , 

E nd Sub 


|_plc jdgjdl jujU 
, cLuudj 



j4A IJU 34 .J 800 by 6 00 *Aj lj <Su Command2 jAuiAJ dbdShei Lum. û 
ûLLwj ,»<y ûmjj& ^><SjjLj jji wUi: ^Vdj tjijAuşjj Commandl 



.dmPelsWidth = 1024 

. dmPelsHeight = 768 

: dJtjJÛi j»4j 

.dmPelsWidth = 800 
. dmPelsHeight = 600 

jjjwuJ jUAA (640 by 480 )j»4£uu ^AaSjJ jJ i$S jJ jLwÇ' 

: <Ujuw ijjSu jLSijUj L£Î<Û JjJj A wj .u 

.dmPelsWidth = 640 
. dmPelsHeight = 480 

j4w4J w il dS jLwL » aS<lLj<U jj j<UJjSjLU) jij jjXjIj F5 j LLwoj 
^SjUuS^j « Lujjljj jSajujj jj jwL) jiiLujj , d5u jlS<uS^J JJ dSjjjdA 
. . ûU IJj4w4j yjlj^S û <S<(wLw ^aujj <S ûlfjJ Ûû _j j^JlUjSjj SI^jçj 
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Pr ivate Sub Form Load ( ) 
^ He.Caption = "Key Spy " 

■ V 1 Create e»n API — timer 
SetTimer He . hwnd, O , 
t /yEnd Siib 


|_p_lc jdgjdi 
, cLuudj 


: jlS4ÛwJj<S ^jljjb ^iwb jl£djlj jS 

<U JlUjjbuSlj <S IjiypLSA) . CujjLSAJ ^jl JUbû Aj \ J djl^lj^S ^Jj 

ûjj jj jjLşû jj j^j ( Dim ) ^jUjA’a ^ <u ^«*S<ûJûbASlj.ûujjjj ASjjljjlû 

( 3 jS I j ) iJUj j ^u 4J jjmSjj ûjjSjj jjpijug aS dj Uj 4 J AS IjlSIjLS AJ « 


^Vaj J^ÛJjwuJJ IJUjj^u AJ jtû aSuÛUjuÛ ^jL u ^ jj -Aj jwU JÛIj . ûuûuuLj 
î»aj JuUwuj, ûûjLu ^jlûjS aSjûUjJû SiûpLS G j^jLLlujjj jSjjIj^S Sib 
: jjjjljuLj AJ jJÛbulSlj yPlJÛî ^pjJLû 4J jjuSwpj >SLj jJjjjJJlJ AJuUbjJU 


CommandButton 


jUjuÛ ^AtSjJ ^jljjb jAuiAJ <Ubj<U"" 


jLLJ S AS 1 JSaCjLS JiJ * uUJ44 ^jbjjjj ^jIjuLûLu Aj JÛJLuU JjAtbjU i» Jj 
, ÛJULUJ JS ûlJJJ jULu ÛJjjj jiJ Sjb ÛJjŞjJ uSuÛUjuÛ jJuuS^J jAwAJ 
Jjjj , CommandButt on ^jljjb A, jjjJUjJuS , ASjjJÛbASlj jwAjU 


jUjAS (£<uSjJ ^jljjb dJU j j^JjJSu Newpro ject S$i ^SJJJjjjJ LLuuoj 


jj ASJ AS<uSjJ jAuuuU SLdSUjJ jLub , ASAjjjP jj ASj Jbj Command 


: AwjyJ ULp ^JjjS j»4J 3 jjS ^JjAJÛ 4J ^JjljS 

Private sub commandl_click ( ) 


Dim Dday As Integer 
Dday = Weekday (Date ) 

If Dday = 1 Then Print 


+4) 

J 

If Dday 

= 2 

Then 

Print 

" <UT 

4_^uJ J J j 11 

If Dday 

= 3 

Then 

Print 

" +jT 

+4) 

c>" 

If Dday 

= 4 

Then 

Print 

" +jT 

<-ui J 

l <+>" 

If Dday 

= 5 

Then 

Print 

" +jT 

+4) 

^ ♦ t , f» 

If Dday 

= 6 

Then 

Print 

H . , 

■La " 


If Dday 

= 7 

Then 

Print 

" -UT Lî) " 



End sub 
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Pr ivate Suto Form Load ( ) 
^ He . Caption = "Key Spy " 

1 Cireatc an API — t imer 
L SetTimer He . hwnd, O , 

l ^WErxcX Suto 


|_p_lc jdgjdj 
, cLuudj 


jAuAJ wlxlS jLwL « Jjîulj F5 ^<u2^J 4S4 jIÛj4j ^JJJÛJjSLlSÛ ^J GuoJ 

ûrtSA i êflAA jj^j û jj 4Jft.tu jS ^jj l^j 4 J ^jJ Jj j-ûuJJJ « 45 j 42 dj Lj 4 j j4^S^J 

. . ûlJJJ ÛjLwoJ 4S<Ujj)3 j4w4j 4Jlj» û2jj \ji 
ûlJJJ ÛLu_Ub4Slj Dim jjjL«j44 IJU424J jjJJ 4j ÛJJJU JSjJ^S jMj&u j4S4j 
£jlû iJJjii 42 « uûjjjlj 4 SjjIj!$2 jj ûUjlû Ij ^4j jljj 4 j ÛU^Ij^S j4u4J 
.. integer 4iLS4^lj JjUj jw4Sj^lj$S « J( Dday ) 4 Sj_jIj^S 
. . 4jU^»uyjj jrtLUJj j»j$jj jjiJJ j4*y 4ÛCU j424j 
Dday = weekday ( Date ) 

jj4;ûw.Û4j 4J j Weekday 41*346 ^iLSjjjjj 4J 4iLwS4j 4Sjjlj^S j^lû 4Ûlj 
4J 4iLwS4j 4 Sj$Ij$S (£$lû 4 ÛIj 4S . . jljj4J jjJ 4J 4Jlj ( Date ) 4iU£uy$j 
4Sjjljj4J IJJ4 Sjj4J ^ lu $ S 4J uuJJJ 4S « JLw jjl^j4J ^jJ 4J 4 j 3 4 6 ^jLSjjjj 

. . ûju ^Ij4j 


j4u 4J ^SûS ÛL uG jJj4J ^J t 4S4 jL«j 43 j4$SjJ 4j jUIJ SUjlj^S jL444j 
j46 4S ûjj4SjJjJj jUiJ JjJjyJ « y&jjJLl jJ jU4Sj^lj^S j^lû ÛU4SJJ 
. . Jj4SjjIjjIÛ j4jV4J 4SjfljaS jJ^4.Uj^J « jJJJU jGjjljjU 4j 4LuUj43 
JjÛJj4yy 4J |jU4jyuy jjJJ 4j ÛJJJU (£4SjJj)2 jjrsjj4*y j4^4j !7»iVl 

4J46 jJjJjJJ ^JjUIÛ J^- 4J4r ^ ÎÛLSjJ JjUIÛ Jj4J Ulû ^^iUuuyai 

. I45ÛJ4J ^jiuj 4J 
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Pr ivate Svito Form Load ( ) 

Mer . Capt ion = "Key Spy" p Ir- idOicti ,*tLi jlj 
■ Create an API-timer J gjfi 

SetTimer He . hwnd, O, 1 , dLuU«b Jd 

I /gEnd Siib ** ** - 


. . U5»itnJ4J jjîUj 4J jLSjjULi ' 


( lf ) jjjjULi - 1 


'jj uu jiilJ ^j<U IJASAiUj <U AjjŞijAu j SjjS lySjÛJjJjil JJ&uj f>JJ 

IJU Ac ua JU « JSj jjîûjJ ( jiSiijS ijjJijM 1 1 uM 1 « LLuUjJii ^jl>ULu Jj 

: -UUwwai 

If Dday = 1 Then Print " *ur jJj d) <l_j" 

: jJjjJ (^jiJ jJi^lw j»4 j jû($jjj lj<U WjU ^tjijS Dday j^S^j 
( AaajJj dib ) dJLJ ^jLwu jb Jjjjjj \jJj ( 1 ) <U wlûLwSjJ Dday jJSjj 
. . ijJjJjSa ( jiSjJ ) ^jJj if böjd ij(jiS 
AiLuSjJ Dday j ij UûUu tjijJju <U jS JwlwiIj tj\j£ jAj ( 1 ) fjUj I Hjj>! 
jJwJJ iSuLj j»^J jU jJj ^jUwJ ) Jj\j Print ( IjAi )JU($ Then « ^jj 

. . dSfojjJ 

JJjSj jji j\jjj <U wijJJ j»j>3 jAwJU wjjJJJ jLwuJ 45 ^ij(jljw$i jiJ Lftijj<U 

. . ÛJjujjj b " " (jTm DJJ 

: JUj^jjI^- JJJtjlu j» <U i f uSjjAa ipjULi tfljS ^uujj (£LSuj 
If ( wjjw^jjj wLj-jAj ) Then ( aS<u-jA 4 a jl juljj <u u wbjlijS ) 

: ijSjjij jlAJJjjii 

D=5 

If d>l Then Text 1 . text="jj I j hi û r_>j 4_o" 

^ASj^IÛ 4S ÛjJJA Text box <ul j jjujJ <jSjjuSji IJUj^S ^lû 4,1 Ûjjtl IJ tjll 

: dJdJijlu j»ib JSiljS. . Text 1 aLujJ 
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Pr ivate Suto Foriti Load ( ) 

He . Caption = "Key Spy " 

■ Create an AP I — tixner 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

End Suto — — - 2=— 


1_/Uc jdjidl Jljjlj 




gûi) <U AjLi*S<U D 
4<uj.Lu4jJ <UAS<U dS UaS<U. u<Û {^utSjJ J.1 IjAj ( 1 ) AJ UjU jJJjjAS D 

" <U<ulj ûdS&fjJj" 

ji) Text jAluujij jSjjljjlj Textl j4jASA?jA» D>1 IJJjiJ JjljdS 
Jj ^^SjjIjjU j JjjjSLç* jj « <Ld.S<LLuuû t^uSjJ 

ud£dj?jdj ) umm ş jû jL« jj jS JjtjJj jû i£ij LS » S^fjLS i)l j i£ J £ i !j J juM 

. .( ijljJÛ 

s Jj <^4 jLQj 


If (Lig’jAt) then ( <Cûu lj û4S4?j4«) Else ( JLuj ûuulj ûd&tejJj) 


s JjLSjj j<Û j<Uu <U ddJjjjnû 

< lSP Jj iluj Commandbuttonj Textbox 

Commandl AS<ÛUj<(j ^jljjlu jJluJJ liUlSLjJ J&S ^iuujj jj jLwU 

s Ajjûj jj^S ASj 

D=5 

If d<4 Then textl . text=" j o 4_>j 4_o"Else 
Textl.text="<u r j_j o-ujij o 4_s 4_> j <_o" 

D=5 <U iSş AujJj dJj i£ljJ <U dSdJjS 

S Jjjjjjdû fkAJ aSj J jS 


gLuJ <U <ÛLuS<U D 

î»Vaj "iÛulj Û^SA^jJj" 4<ujjj lj<Û jljf AJ ûûujîSjJU D ( jdS^j )di? , jAjJJ 

jjJAJ iŞj&A jdj ^Jj J.J j<(S<Û 
" AMj ûuulj ÛiSiJrjij" Atujjj US<U ^iuujj (jjljjlj JU 
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Private Suto Form Load ( ) M 

f* ^ Mer . Capt ±on = "Key Spy" „ l«- idOicti ,*tLt jlj 

■ Create an API-titner LJ J r '■*' “ V y & 

L. /-^r SetTimer He . hwnd, 0 , 1, dLuU«b Jd îj-tS 

■w E nd Suto — — 2 — 

<U 4S«jLS j4S4j . 4 jaS AjjjA&ai dÛjLS 4 *Aj . jûujj Else i£4«j 

" AuJ wuylj u4S4*j4j" i^jlJjj $SÛ liijoJ Glj . ASAPjAa JJjljAfrJ 

..jd <Lu$^SG 

*>j 

If (difjiU) then 

ÛJjjijjii dSApjfo (yûuilj jAjiAJ dbÛL»jJ£ bdjyJ 

Else 

uJjjjjjai JStej&x jjLu lj |j ijAuidJ Ijijûi 

End if 

: £}AuAJ i4l4J4j^«j 

Private sub commandl_click ( ) 

D^5 

If D<5 Then 
Text 1 . text=" 

Else 

Text 1 . text=" 

End if 
End sub 

: 4J4Jdpuû |»4 j 4S 4iL*«.u«$j ijijl^ jJ ajaj&u 4J jlujijS j»4J 

gûl) 4J 4jLwS<U D 
( IjAj ) guu 4) jjJjiSjM D ( j4S4j )djL?j4j4J 
" jiu 4J aJSgti 4JJjlU3 j4j" 4ui j jj bl ^jjuijj ^mS^J 4J 
( Else )4 jI_j.j^J 4S4^j4j^4jl_j4al} 4 Jj4S4JJJ 
M £buJ 4J 4jLwS4J jjJJjj^S 4 JJjUj _j4j'' 4 wjJj I J 1 Ju$«û 4J 

LAÛ (gPjA* (jJLJ^S 

A^ U J fr jU jUASA^j44 JJJjI^^J dJdjAuA) jAS 4J IjJjyJ 


_j 4 i 4 ) 3 j I o j j 4 ) ” 

J 4 J 4 3 Lui_£ 4_j j j_3 o j j 4_^ 4_J 0 j I oj j 4_J ,f 
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L jjr. 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — txmer 
etTimer He . hwnd, O , 

E nd Suto 


1 _/Uc jdgidi Jljjlj 

* dLuUdJ 


jdSdj A& jrû!j,J Jûtşij bbjfcj LAjjjAA »j , End if dJl^ ^jjJjJ ^jLjjS 
<U ÛÖJ jJJAJ A^jJU jAJ 4S uIjAA jUSjjlJji . j (jMp jUSu^jJU 

. jJjjJ jjJJElse^Awi 


! Else ^jJjJjJJ jAwAJ JAJJj^j 
i»AJ Else ^ASJÛI^JJuJ _j if prjA* /jjjjJjJJ AJ j^JbASaJ jJbj jj jljjjAJ 

*• &jAjJJtJ ^AJtUljjAJ 
■ i d i d jA^J Î£$j ^JjIajLU (jSAJJjjjJ 

pjpp J h$Jlu (jSjjljjLj j Commandl jUjAÎ ^uSjJ (jSjjljjG jÛU; 

j^jjl^j- ^Ajj^Iw f>AJ . . ASJ Jbj aJ Text 1 



JjjS j»4j 3 ASj Commandl f>AS4J a iUj4i ^JUSjJ jJUAJ bldSbjJ UjlfJdJ 


: Aujjj 

Provate sub commandl_click ( ) 

If Textl . text="15" Then 
Forml . Backcolor=vbdesttop 
Else 

Forml .Backcolor=225 
End if 
End sub 

xMAitpJZ j»4J LjASj ASjJ^S ^jJAui jt&A) 
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Pr ivate Sub Form Load ( ) j w b. 

Me . Capt ±on = "Key Spy" p lr- idOJcti Ab jlj 

■V ■ Create an API-timer 

SetTimer I-Ie . hwnd, O, 1, dLuU«b Jd flj-iS 

/^ End Sub — — — 

IjAJ " 15 " ! ju$i IJlS<U j JjjJuu <U jAS<Û 
" jjiUuLj ^SLlluû^jI^" uu uj)7i5><hJJ Jjtj « iJtjALLuJ Jj tj U ûlAJ uAjjî 

tjujj jU ( j Su l uy j4S4J î»VAJ 

.ûIj 22 5 jjUj (^jjj <^4lÛJ (j^jjj b j»4S4j 

Sj<u ^jLjîS 

4J 45uS4j Backcolor ^4j4S4luu$j JjJJLui textl IJJjûi 
^ jLS<U*uJjJS jJjJuûJ (jSjtj 4Jlj > 45 Aj j j j j jbjjl jjb (jjLS4yJJJAU <UjLj 
jJbV 4i 4S jJJÛjjj j4J 45 uS4j VbdeskTop LAJjj<b" jLÛJjSljjj 
4J U5bj<U ^ibj <U jLSASijj (jûjJjJJ jljjj<J , jjljilj 5J (£$b J^4S<Ubj4J 
tjtjAui JtjA) iluJJJ LLwb ^jJ tJ jJ (jiLSAuAJ 4) 4S CuJJJ juuû^J 
(jJAjjIÛ (jS4JJjbj b l çŞjjj j4A _$ ûijJJJjJJ JjUj 4J jJ i£i£i$jJdij AiLiSAJJ^uû 

. . 4J4A 

JjduLui tfJÛIS 4J jLwb , 4S4«Ljj4J (ji7m>jtS4J JJ JjSjlJ F 5 i£A«SjJ l7mVl 
4S<Uj$i (jSjjj jLuJJJ ,45j 4S4ibj<Û ^AaSjJ (^ûS _} 15 4wjjj UASAiuyj) 
VBdeskTop a iUwb (jUw 4 j!j j^JJjljJ jUJ44 4S ^ASjjj j4J jj ûjj^SjJ 
tftjALuJ Jjtj !j4j jçuijjj jJ (jSAJJjUj !J4S4lkwb (jjLu $J 4) j4S4j ,»V <J 
4 j!j Else (jûjJjJJ ^ljJ 4J JjjJjljbUJ44 4S ^ASjJj 5 <Û 4ÛUJJ 4S<Uj$i 

..22 5 jjUj (jSjjj 

<U-j<U j4j ^AiljAJtU 4S Ûlluy 45yÛJjJjJJ Else 4S ^jlj jUjj<Û IJJjb 

. (*ftjjjJj!j 4S ÛjJ 

** ♦♦ * 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — timetr 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi Jljjlj 

* cLuudj 



: if uPj&a j&mA,} jJ ^MJjjjj 

. . jJjStijij jîdJJj I j»j ( 1 ' A ‘~' ) jAj (,JijL«U jAwdJ jA4 jljjj JJ 

I J Text 1 AJ dS ijJjju^i ^SdJjjbj £j& Aj ijj^^SJj dj Jjijjjj p>dj 

$$}Jj u*ylj jJlSaj »j »jJj»jj» yJjji IjJJ JJJ umIj jASjJ (jujjjJJ 

. . ÛJjSa jUjAS ^<uSjJ jAmAJ JidS J.S IdiypLS <U »jA » Juuui (jJjj* JÎw^JJ 

: jJjStULjjAJ ^lSlljj 

Pro ject ^Jjj j jlSdlMbJ ^ijjû jAm JjjJtJ jLwb »j»jASj [£$j ^JJijjjJ 


. . JSj Add Form jJjjJJ u 4£ i7 SuiS IJUjJj j »j»jj£j 



. . ASij Open iySudS jijjjjJJA Form ijJjJjSii dS IjJjjjIm jJJ jLwb 



l+_)(*& A %$#@!«< 61 »> !@#$% A &*()_+I 





ate Suto 
. Caption 
Careettie a 
etTimer 
Suto 


F 

M 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


l_pic jdgidj (jUjU 

r . ' I . . ■ 1 4—1 



$4J UuioJ 4 Form 2 i£$lj <U uuJdJ Jbj £$j ^SÇujji j^iujJ 

Form 3 ju fkjj '3 AJlj jJ ^SÇujjî ^jjjSjbj jJ tjtjASLl ijiiji } (£ 4 jLSjj 
(jAjjJ jAuAi uidSLjJ j jLSjj$jJ i£»$»j»jji (J»j 4 m 4 j jAm »jJM iJjljiAl 

. . jJASJjAuAJ JjlS iJ»jAjjj 4 ASJ Forml fUSJJ 



Command jUjA 3 ^A^jJ (jSjjljub 3 Textbox juu^j ^Sjjljub Lu ûû 


*. ASJ Luj- JjGJjju |»4i j ,»aSaj ^yjjjbjj ASj iUj button 


^JGIJÎI 

Jj.lj<UJ JLJÛ 

jLSjjljjû 

»j»JJUj 

text 

Textl 

' Uj J+ cs+J+^ LS û jû® j 

Caption 

Forml 

(_+ 0 j Black 

Backcolor 

True 

Right to left 

°J 0 JJ j J^ 

Caption 

Commandl 



^j$4j jj 4 ASJ ( oj ojj jjj )»J»jJj 4jj? JAiSji jAuAJ SixiSjti Lut û j 
: jjjlj APjAa ?>4J liJjAi . .»j4ÛUjSj ijS ^ûuyjj JijAfû 4J 
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Private Suto Form Load ( ) ' ^ 

Me . Capt ion = "Key Spy" . p Ir- idOiclj ,*ib jlj 
■ Create an API-titner 1-1 J r ^ 

Ij. SetTimer He . hwnd, 0 , 1 , dLuU«b Jd îjjS 

/jT E nc3 Suto — — 2 — — 

Private sub commandl_click ( ) 

If textl.text = "1987" Then 
Form2 . show 
Else 

Form3 . show 
End if 
End sub 

: jruliJ jU^-jiU bijÛJ 
ij<û "198 7" IûS4j jljl>«lj AJ j4S<û 

«JJ jLÛu . 

Jjljiûûj Aj 
iJj jLuJj (jUI 
SJU 

jLuU . jSû F orm2 jAuiAS JijJSliti IJjLSjjjjJ £»$» jdjjjJ JijAşû) Jj 4i ITmVl 
j»<û j 45 j Jbj jj ^ Commandl jUj4Î a jlJUbb4j (,£<uS$J ^Sjjljjb 


: £j»JJ jlÛAJuui 


jbî^ 

Û<Ûjw 

jLSdjljjb 

(_£ jjjiui 4-aljj 4j 

Caption 

Form2 

dhSi o j 

Backcolor 


True 

Right to Left 


ûj 4jl j 

Caption 

Commandl 


jj Auişli »i$S f\AJ j Commandl ASj 4S4jbj4Î ^AtSjijAuiJJ du iSliii LLu j 


: /US4j ^yjjb «$4jlj4S 

Private sub commandl_click ( ) 

Unload form2 
End sub 
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P r ivat e S uto F 
Me . Capt ion 


SetTimeir M 
End Suto 


orm Load ( ) 
“ "Key Spy 
AP I-t ixner 
e . hTjnd, O, 


i fiirz |di)jcu Ltjlj 

rtt ,f 

1 , dLuU<b 

S 



^jl-UbLxk j<uSjJ ^jSujljjb j Form3 ijijjjjJJ ^jjf'a 


: i JLwLşj Aj 4iL,yjLSjjjS ^Aj 3 aSj :bj jj ^jUjjj 


jb^ 

jJU<UJJuJÛ 

jljjb 

4_j 4Jb l'' \ 4^ 4 n*< \ 4 0.' ^ 

Captoin 

Form3 

ijJjiU 44 SUSj Jj 

Backcolor 


True 

Right to Left 


aj 4jl j 

Caption 

Commandl 


i$4ilj4S jj JLwjjj jjoS i»Aj ^aSj Commanl ( JjbljdS ) jJLwJL) JidSjjiJ L'Lm.û 


Private sub commandl_click ( ) 
Unload Form3 
End sub 



Ij Text 1 ^jLw jj <U jLÎb « jjjjlj F5 i£JUS$J 4iJUbj4J ^jjjSa^JUl^ jj 
4jIj bb^owb lJ4SiJjS Jj 4S umj Jjjjbj ^ Jl jjj4j 4S 4m j Jj JJJJijbj 
jr ) j<uSjJ jJluJJ JidS JiuLS jçLLuj J "2000" JbjoJ 4ifû jj "1987" 
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Pr ivate Sub Form Load ( ) 

He . Caption = "Key Spy " 

■ Create an AP I — timer 
SetTimer He . hund, O , 1 

End Sub 


l_pic jdgjcti 

dLwU<b 


II 


û^S^ L LLu^j ClJjj ua <£ tj4jjjSei ( a j a jjj 

^JSJxJ' 


2000 




<Ujj>j j<Û jh-LU4L "198 7" 4Jl^ ûuii j jj aS^IwIj JjUj jaIaj <u 


. . iJjjJuun ^AjJjjAj” iUU^uuLi 4S 

^jnjxj 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — timetr 
SetTimer He . hwnd, O , 
End Sub 


1_/Uc jdgidi Jljjlj 

, cLuudj 




: Select <jJ4Î«j i#>jULj -2 

:4j>« j 

ijjljjb dJj 3 Textbox jjljjb 33 J jLub , jjjjASj ijjj ^SJJJjjjjJ 
j 4 m<U jJixISJjjj jLwU « 4 SA«j£d jj ASj Jbj Commandbutton 

: JujÛJ lJJ 3 <U » jjiS ^ûuy^j ^jjJbû Jj ijijdjljf jjASj Commandl 

Private sub commandl_click ( ) 

Dim number As integer 
Number=Text2 . text 
Select case number 
CaseO 

Textl . text="j4u" 

Casel 

Textl . text="d4J" 

Case2 

Textl . text="$_jJ" 

Case3 

Textl . text="y«" 

Case4 

Text 1 . text="jl_^" 

Case5 

Textl . text="jiuJ" 

Case Else 

Text 1 . text="4uû Lu jdj" 

End select 
End sub 
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P r ivat e 



Suto F o rm Load ( ) 


. Caption = "Key i 
Create an API — t ii 
etTimer He . hwnd, 
End Suto 


|_pic jdgjdJ 

, dLu t«Li 





. . AS<ULjj<U lLu JjSuI J F 5 

^jSulS jLww « gLuJ G d<U jl^jj <U Aujjj LJjJJjUj Text2 A2 jLulJ 
5 <u ûJujG ^ij^u^j b Textl <U jLLu jj » A5j J,S<ûUjA£ ,£<uSjj jJGJU 
jj ^4 jjjUj j<iS<u L'Li.u.û <u « <ûU^uu^j IjaSjj^S <U 4S ûj^aSjjjjj 4jjjUj 
l^4j * Lum j jj b Text 2 AJ <ÛUj.uujj I J JSjJjS Jj JS ^GljUj jJJ<U 
<d ûûxUASjjIj ûûu * ûjaSh JlSGUjAS ^jlJUbû <û ^AaSjj jA<u <U LidS LiûG 
<U j«JAj dS uiuj u dJJjULj Select Else bdjÛJ . <Lû Lû ^UijUj j<û 
lj<ujj LJJjjjUj jb L L l û û jdSdj , ûÛUjj jûjj jjS J jjjiw <U Gl^ * LuJ JSiLuj 
Juujjj LllJjj Jujû. jJSau* jjjAj IjaSJlGj JU jb jjj <ûlj<Uty b Text 2 JU 
JSJluuj ^jGjS ^JUUaSIj ÛiUJ J I i I iTij U j S <U jj . 4xU Lû ^JJJjUj jû 

..( End select ) Glj Laui j jj 

5 AJdjtjMi p>Aj aSjj^S 

jGJuLulj , <U JlujjUj ^Su^ljjS Number juJjJ 
j»jjjj ^iuuû ^SjJûuu ^jljuU <U GLuuSJU Number 
. . jjjjlji- tjAJtjlu />A J « ûjjSLjjUj Number ^dÛGj 

0 JjUj ^<Uluj 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create an AP X — t iroer 
SetTimer He . hund, O , 
'End Suto 


1 _/Uc jdgidi Jljjlj 

, cLuudj Jd 




" jûu " 4J uuujLiiSJb iil4J (jjjfUijj jSjjJuu jlj Sjljujj 

1 ijLtj JJXuj 

"dJU " AJ uiujLuSjJ d<L iyJuujj jJjJÛu jlj Jjljujj 

2 ijLtj JAÛuj 

"jji " dJ uodLuSjJ d4J (jjuuujj ^SjJÛlui jlj tfjljuj J 

3 JjLj <£Jûuj 

' V (jU " 4J ûLjLuSjJ d4J (jjuujj (JjjJjuu jLi £jljujj 

4 JjLj y,£<CÛuj 

"jl^ç " <U uudLitSJj d4J iyûuujj jJjJJLu jtj £jljujj 

5 JjLj £iJuuj 

"gbuJ " <U uudLitSJj d<U (jjuuujj (JjjJJuu $U £jljujj 

jtSJûuj £Jj\jJûuJ <U 

' Juû Lu £jj »jL»j Jjj” Jj AjLitSjJ d4J (jMuujj ij'jjJJuu jLi £ş\juj) 

JSjJluj jjLJşS 


: (jJJjuuj ^JjbL jAu 4J jj jSJJJJjU 


j Textbox 3 Listbox iSjljjlj d4J $ »3»jJSj £$j (jSJJijjji 

. . iSijjjj jj JSj Jbj Commandbutton jbjJÛ £J*Zj» SjljtlJjJi 

: JSj JûbJLUUJ *UJÛ j»4J jLwb 


ûb^ 

£jjJ*ÎJjJ Û 

jLSdjlj^b 

ijijUUj 

Caption 

List 1 

True 

Right to left 


»j»J!UJj 

text 

Textl 
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Pr ivate Sub F o rrti Load ( ) 

î . Caption = "Key Spy rl 
* Create an AP X — t ±me rr 
3etTin>er He . hwnd, O , 
End Sub 


1_/Uc jdgidi Jljjlj 

, cLuudj 




True 

Right to left 


True 

Multiline 

(jl£ s jU 

Caption 

Commandl 

+S ojU jLjAJ (jjLijl j 

Caption 

Command2 



" ^<uSjj jAuAi duAShn « aSaL* bJ jj jjASj Jbj dj^b JÛ4^ jj^b jj L'Luij 
jh t j j^Sjj j<U<U ijSalS Ulçjb 4S (jtwjjj jJ.jjaS jjjJj jj 4 Sj" jLSjjb 


: Jbjjj jjjS ?>4j . ûjjASjjjj I j jSaLoJ <U juujjjjj ^Ajljb 

Private sub commandl_click ( ) 


Listl . Additem 

" jlj <ul£ " 

Listl . Additem 

"Ullj aS j Auj " 

Listl . Additem 

" jbjU " 

Listl . Additem 

"jLUj +3 " 

Listl . Additem 

"ç»ljU " 

Listl . Additem 

" UAÎi jAuj " 

Listl . Additem 

"jljj^ " 

Listl . Additem 

"l_Uj (jjli jS " 


End sub 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — timetr 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

* cLuudj Jd 




^jLStUJJj <UJ <UjG <U JiSuSjj 45 Additem ^JLUmj JujG 4j 
ûjj ij££u j 44 jb jb Jj4ç û^j- ^jjjjb 4 j ûblpjj * j*£$j ÛMbJ i^jljjib 

. . jSJlLuJ kj ûj45j dJbj ûli44 
jb bbjbj4A j4w^ jljLulj JjJjû ^AS^bjjj ^4*SjJ (£$4 4J ( ^JjJJ jj I imjl 
: jJjjjJJlJ JjJjlj^ - ^JJjS j»4J J^LublJ IJASJumoJ 41 45 jJjjjjJj 4lw j4j 
j -Uii 4Î jUjl j" Command2 fOjjJ ^jb)4fl ^4 u5jJ j4u4l 4id5ijjj 

: 4wjÛJ JJj5 î»4j ^ 45j "j($ a 

Private sub command2_click ( ) 

Dim i AS integer 
i=listl . listindex 


selectCase i 
caseO 


Text 1 . text=" 

Casel 

û jta 4j 

ojjJ" 

Text 1 . text=" 

Case2 

Kico 

LS j! J^&U C5^JJ « 

Text 1 . text=" 

Case3 

Kico 

(^lij 4 j" 

Text 1 . text=" 

Case4 

Kico 

(^lii 4 j " 

Text 1 . text=" 

Case5 

Kico 

(^lii 4 j " 

Text 1 . text=" 

Case6 

Kico 

(^IU 4j " 

Text 1 . text=" 

Kico 

(^lii 4 j " 


Case7 

Textl.text = " Ujbj 4 %j jj 4jjjxûjS 4j 4j 4jjU (^jlijS 
Cj1£ ûJ j j ûJ dLj% kico l5j' j=*&U " 

End select 
End sub 
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ate Svito F 
. Caption 
Create an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hvjnd, O, 


l_pic jdgidj (jtojto 
, dLuUcb Jd 



J 4 US 3 J j4u <U ULdS jLwb AS4«lj)AJ (j m»+jlSAJ u JjSjIj F 5 j<uS^J LLuoJ 
Jjlj 4 Sj ûSlLw bJiSJûwbJ jjljaLj jlj AJ jLSjjlj Jj UUSaj L%ûu ASj jlSjjlû 

« jSj " jSj^Ll j4iwAJ (jjLûlj ' j<uS^J jJuAJ u4£ ^ j SuLS IJJljJ Jj , JjJjuJ4A 
IjaSjj^S <U jS ûj^aSjjjjj Ij Textl AJ jjLj j4j ûJUjLj ^lju^j jj-ujjj 


. .jjL^ugjj 
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r v- 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi AP X — t ixner 
etTimer He . hwnd, O , 

S uto 


1_/Uc jdgidi Jljjlj 

* cLuudj 


lî 


: For ... Next j ojAjjj ijLjji tfijLtû -3 
4j j LLU d J d Sa ^ L llS Jsjdiişj sjUji tfUU USmjAj j'sUj AJ j»dj 


. . Û,JjJu£S1jLS 4J UdJSjlu 
t j*d£dj 

For (^JdjUj = (\UijJut ^ji) to ((jjp^S^^p) 

ij^uui ijUjji uJjÛUii JS uJjMjjii iijS jJJ \iijl i 
Ne x t ( ^jUj i^Jj\j^ ) 

/ / ^JSiJ tfijjJûjAuiA i UAJAJjaJ 
JJ J Command 3 Textbox ySjjljjlj j ijijiSj l$jj tjSiJijjjJ 

iAujjj lidSdjUjdj £J*î$i jU AS tjijljj tSiijS ?&s jLwU JSj :Uj ASA«jjj 

Private sub commandl_click ( ) 

For b=l to 10 

Textl . text=textl . text + " ( a jWj^) " 

Next b 
End sub 



l+_)(*& A %$#@!«< 72 »> !@#$% A &*()_+I 



Pr ivate SuJd Form Load ( ) j w b. ■ 

V Me . Capt ±on = "Key Spy" . p Ir- idOiclj ,*iL» jlj 

■ Crcatc an API-titner 1-1 J ^ w jjS ^ % 

SetTimer He . hwnd, O, 1 , dLuU«b Jd flj-iS 

■ /jT E nd Suto — — — — 

Commandl 424ÎUj<\i jAwAJ u4£ ^SulS jjLSjj4*j 4SiUljjAJ Lun J û 

^JJ Ai jluAJ JCuJJJ JjbjJ jL? 1 0 4 JÛU^ui^j aS ^<U<Lui jjj jrûujJ 4 Sj 

. . Jj4llu jjbjJ jU- 1 0 AjU^uu^j J.S ^jj^S j<û 



Jj»JJiJ SJ*L2 


F or ( (jJJjLuj ^j^jlj^S ) = ( Gjj<Lu ^jj ) t o 

aj)rs) 

(^G^S ^jj) Step ( ^ji 


/ / (*Jii J jJ^UÛ J<Lu<U ÛljjG^G 


For b=l to 10 step 2 

Textl . text=textl . text + " ( û jWj J ) " 

Next b 


^j^uw d,J jnbujj « jJJiSj Jjj^Iw jjJ j<U jl^jj ^jJJuu jJiSjj Luu û 

^tyJû Jj ^Vaj « J^JLuJJJ JjbjJ G JJ « " ( jjb^J ) "AjIj ^SLLuu^ IjU^SAj 
<U jS«jjjj ^j^uj Ju<U4j j^JlujjJ Jjbjj jb- jluj l^jAJ <S<LLuu$j IjUj^j 
JISj^Ijujj 4S tjûAtjji jJ4.uû i£4Sjj$S uuUooj 4j « jUJJ UuaSjj JJ4.UÛ 
jjj-jj ) 43 jAJU' j<Lu JÛuLujjjJ jSUAj« j^jûLSjj Jjbjj jU- ’lUj "jjbjj" 
ÛJj<Lu ^jû ^jjjjiûuûLJlJ AÛÛJJJ jSJJJjUj ^<Û « jjJ AJ <ÛLuS<b aS( J4wj 
uÛ^ASjJjjj JS LL uujj j2 4 j<ûLu i»Aj jAw JJjj « I jj_jj j<Lu<b ^jGjS ^jû uSG 

.. Ij Textl <U 
:<û$*i 

For a=0 to 5 

Msgbox"+j vbmsgboxright , a 
Next 
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Pr ivate Suto Foriti Load ( ) 

He . Caption = "Key Spy rl 

■ Create an AP I — tixner 

SetTimer I-Ie . hwnd, 0 , 1 , dLuU«b Jd JjjS 

End Suto — — - 2 =— 


1_/Uc jdjidl Jljjlj 




: Do . . . While J ^jjbb - 4 


For...Next JjbjJ ^Ajjb 4) JjJbj dJtjAijJ tj bjJ tj$? f>4j ^ljjS 


: uJjSjj <ubj<U jJtJt^ui JûAp Aj jbujj £j<W ^jblJ jAw <ubt*u^jJ , 

//ifijijj 

Do while (^ymjjti Jjii bli*jJU) 

^ûjj J ij;J tjiÛjut JjbjJ ûjjjjti JS ^<ûbj<û j4j 

Loop 


/ / ÇiS&J i£tJjJZ jiunij ijjAJ 



JlSJUbjJJ Q«gj 4 <lS<Ujji jj ûj45j Jbj Textbox ^ijjljub ûÛjjj ijjjb 


. . <LLuj "Aryan" JÛIj iStjiyLjj ^tjijjJtjLiji j jLS JjAaJ 

: ptjji 

i ûjjSjj <wbj<u iJtjui f>At 

Do 

^jjjjj tjlitjijiljj jjbjj ûjjiûti aS 5<u 
Loop until (^_bJJ Jjil bll^jJU) 


ifitjji ijtjûui jAuAJ AliJijjj 

Dim d As integer 
D=0 

T="Aryan" 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create ein API — t ixner 
îetTiKier He . hund, O , 
End Suto 


1 _/Uc jdgidi (jUjli 

, cLuudj Jd 


Do 


D=d+2 


Z=t + z 


Loop until d>50 


Text 1 . text=Z 


:jJ 


jj ASj :Uj Commandbutt on ^SjjljjU 5 j £$t (jSdJtjjjJ 


: J jj d,SJ jJmJJ (jSjilSljit jLwU 

Private sub commandl_click ( ) 

Dim a As integer 
Do 

A=a+ 1 

Msgbox a 

Loop until (a=6) 

End sub 

jûtJtii JSj JSAaS^J ^jljjU jAmJJ J l t l S jLuU . . JSijmTd) 4S4 jUj4J LuuJ 
Jj ^J4UU ^SoJjJLuy JjUjJ ok jJjiJ. 1 jijSSJS JJtjJjJjSti 0 4<UU (jSjlSjJuum 
( A=6 ) 4ûlj U- 6 ^SG jjUjj 4jd$iu j4A jjJlujSjj 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — t imer 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi Jljjlj 

* cLuudj Jd 




: /7 t£}ljjLj jAwAJ dAJ<ULjj4J 

L^uQ Cheakbox j Option jl^ij fiJJ tjûtjAuiAl dtj jljjjAJ 

MJAJ b Option ijjljjb 4.1 LiuUjAi a jlJUbb<û jj 4 jIj jJjlju)4A4J 
jjlj»«b S$*> AJ fkVjJ IJL)Uj<Û djjjUjS jLj 4J ûJjJjjJAA jUjAS dJU uujlpJJ 
jj « uJjjjdAA jJbj djS4J 4J IjjiÛAjUjJÎ j'û 4J ^jljjtt tjt Cheakbox 

: jjjjjJJb tjtjlf? S4 j4.aU jAJ |»4 j 4j^j 
Textbox jljljjLj _j_jJ _j Opt ionbox jjljjli _j tjtjdSJ Sjj ^JbjjjjJ 
4J 4SJ Jbj Commandbutton _j Label ^jljjb d4j i 


: jLSjjljjb 4j JLb JjLjJjuw j tStjjjJ 


^jLSjljjl 

^jj<UJ JluG 

jLSjjljjb 

(-5 j'+J+' 1 j (J J 

Caption 

Forml 

e j +jjj£j£ 

Caption 

Optionl 

o j Aj^jS 

Caption 

0ption2 

(j-SjfLili 4jl^ 

Caption 

0ption3 

tjtjMjJ 

Text 

Textl 

tJtjMjJ 

Text 

Text2 

tJtyjJJ 

Caption 

Labell 

4j 

Caption 

Commandl 


: Aaj jjSjj JuJlu^ fk4j djj jLwb 
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Pr ivate Svito Foriti Load ( ) 

î . Capt ion = "Key Spy " 
■ Create an API — txmer 
SetTimer He . hwnd, O , 
Eixd Svito 


1_/Uc jdgidi Jljjlj 

* dLuu<b Jd 


I 


i»Jj j Commandl JSj ijjljulJ ÛLlSL »i ijS ^yJuuijj 'jJ Lu L û 

: Jiujj J HjS 

If optionl . value=true Then labell . caption= _ 
Val (textl . text ) + (text2 . text ) 

If option2 . value=true Then labell . caption= _ 
Val (textl . text ) - (text2 . text ) 

If option3 . value=true Then labell . caption= _ 
Val (textl.text) / ( text2 . text ) 

b Textl <U IJJ($J <U JjSjIj F5 AS<Ubj4J ^jjjS i ULû jJ Luyû 

<U ujj&i jASaj bûjj « jJ jjSjJdjUj b Text2 J.J _$ AmjJû L)jJ<jL«j 
4J LUS4J « ûjjSj bjAwAJ (5 ( j2AjIj — — &S ) ^iLSjjUjS 

JSj (fkbûAJ) (£4 aS$J jAwAJ uAf ^SLdS IJjIjJ 4 J 5 aSj ûVLp jLSj Option 
. . ûlw$jjj ^dSJUby Aj Ij Labell jjljulû AJ jûu JJ« 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP I — t-imer 
SetTimer He . hwnd, O , 

E nd SviJd 


1_/Uc jdgidi Jljjlj 

, cLuudj 


:( ûLjLiaJI ) jLSiUJjbjujj fjLjS 
LUjjj Jyju* ^JjIÛjJj <L jçûlpjj jjjjU ^SjjjS jûAç Aj jljjj<L 
jS jjjLSjjlJjS U AS4J j4A JjAJjAAj JS i jj 4S4J ÛwjjJ U JJUlumU 
jlSAjl>j iJjU' Jj<L- _j ii«j _j (iûjlSjJ ^jjJjjjjj _j jljb- j JuAjIjj 

: 4JijxS fk J j jiuJ^Aj . . jJJJLuL^J U 
^ jL$j43 (£4 aS^j (^jIjlLj jjjljj j juujj ^jljutb _jjj ^ j^jj 45l (Sjj ^S4 jjjjjj 
î»Aj _$ aS< L jji jj 45 l Jbj Label u^jl^ i Commandbutton 

: J5l L^JLu^ jûGjUuu 

♦ W ♦ ♦♦* ♦ M 


^jLSjljjl 

jJS<U<Ûuu 

jLSjjl jjb 

JjJjmJ 1 

Text 

Textl 

JjJjmJ 1 

Text 

Text 2 

JjJjmn 

Capt ion 

Labell 


Capt ion 

Commandl 

fkJLS 

Capt ion 

Command2 

jLAJU 

Capt ion 

Command3 

jbk 

Capt ion 

Command4 

b$J ^Sjj 

Caption 

Command5 

Cos 

Caption 

Commandö 

sin 

Caption 

Command7 

Tan 

Capt ion 

Command8 

jip 

Capt ion 

Command9 

(WjlljJ 

Capt ion 

Commandl 0 
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\ Pr 




, Pr ivate Suto Form_Load ( ) 

Me . Ceip t ion = "Key Spy" p l«- |d£Licli /*» L* jlj 
■ Create an API-tixner 1—1 J x JJS 

SetTimer He . hwnd, O, 1 , dLuU«b Jd 


nd Sub 



^jj <Pj4S ^j>jV 

Caption 

Commandl 1 

^J_}4jj>2Sjji 

Caption 

Commandl2 


(OU^lJ)i_S'Jji>jijJ Oj lS <Uj_ujU“ 


. . AftJ ^jSjj f>AJ jiub 

JflJxl 








ö _o 4 J 0 ^£ f 


Sin 




^ 0 _)^o Olo 




Cos 


L>jO öj 


<$-» 00 *£ gJ'ijj't ■ 4 J 0 >££jjJ 


4j($LiJ4A ,»40 (jjjoJj Ji$S 4iljlJjS jAJ JiS4J jAA (pjAojj Lut J û 

: a5j 


. . ûijw^jjJ Jjo^lw ?>Aj ^Jj^S 4J: Commandl ^Jj4jjjSjS £)IJj2 - 1 
Labell . caption=Val (Textl.text)+(Text2.text) 

Aj JjLuSAj ujgtij ti U Labell « J.J 42 ^jjlj-y^i jAj 4iU4.uy$j iJOjiiJ 

^jljjLj jb i£j!jdj$j ^j-jj (j5) ,»4S<U ^ Text jljljjb ^b £jljw«$j ^j-jj 
«j$4.u45j jS 0^42 4j4j jjj ^ojUj ^jj ^jiOjj IjjjI) 4jI^4S , fkjjf^j ^ Text 
Long jb integer ^Jjbj ^j4w4J ^jjjb4j jUSojJjb^Slj 4Sjf? 
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Pr ivate Suto Form Load ( ) 



70000000000000 


40000000000000 


f 4-> öjUj 




110000000000000 




jiuJjAj . . JjUj AJ jllijlj 4j|jj4J jj($JJ i jmJjJ ^ZdJiŞJLÛiJ 

ijij\$? fji$ lu f>JJ 


Dim x As integer 
Dim y As integer 
Dim Z As integer 
X=val ( Text 1 . text ) 
Y=val ( Text2 . text ) 
Z=x+y 

Labell . caption=Z 


^ j integer ^iulj ^JjUj (jSjjIj^I X,Y,Z I lijll 
f>AS4 J (yjjUJp u'jjJLUu jlj ^l>u> ^jj =X 
(jjjLup ^JjJLuu jlj ^l>u>i ^jj =Y 
Y^jjîSx^jj=Z 
Z =J^ Labell jljljjlj^lj i£jl>u$i 

. . ûi>u$jjJ Jjjuuû f>Ai : ijAÎijS £j\ ijS -2 


Labell . caption=val (Textl.text)-(Text2.text) 


jSJjJ jASjuuû 6>j JiZiişS jd&dJ « ( - )$J t£j$S jU ( + ) jAiLtiu LpdJ I iijjj 

: 4jlj uJLu a,J jj j$Êti JSJjA?$a Lçjdj ÛJjjtpJ 

Y ^jj ( - ) X ^jj = Z 
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Pr ivate Suto Foriti Load ( ) 

He . Caption = "Key Spy rl 

■ Create an AP I — timer _ 

SetTimer He . hwnd, O, 1 , dLuU«b Jd 

End Suto 2 2=— 


1_/Uc jdgicu Jljjlj 


5 jj>5u4jb jijbjS-3 

Labell . caption=val (Textl.text)/ ( Text2 . text ) 

« <U AjLtjijZ AJlj » ijj jjS jU4JAjLuaj ( / ) ^4J L^j4J 

.. Z=x/ Y jmJjJ 6&i$d lwAJ jjljjj : 

jjU5o) i^bjS-4 

Labell . caption=val (Textl.text) * ( Text2 . text ) 

( jb&) ) 4jli JjljlJ Jj ^jLSdjLij yjUf 4J jU* L$i<U iJLwi ijiî 

: UJtUijUj ^U-jJ ^Jj i£>j4jjjjJ -5 

Labell . caption=Sqr ( Text 1 . text ) 

^Sjj 4j <jLwS<b ui?jJjiJ b Labell (Jjljjlj <U iS (J4JJjUj j<û IjuijjU 

. . (»4S4j ^ Textbox jjljjLi jU i£jlj«ji ^Ujj 
: jjjjMjjjJ jjjS jjj Co s ^jUj- jj - 6 

Labell . caption=Cos ( Text 1 . text ) 

: jjajiiJ JJjS j4 j Sin ^Lu-jj -7 

Labell . caption=Sin ( Text 1 . text ) 

: jjajjjJ JJjS jJj Tan ^jLu^-jj - 8 

Labell . caption=Tan ( Text 1 . text ) 

: uJjujjjJ JUJjiu f>Ai jljj ^jjJjjjjJ - 9 

Labell . caption=val ( Text 1 . text ) A val ( Text2 . text 
) 

J JLwjjj JJJjUj j4J ^jljJ b Text 2 4) jAujjj b Text 1 4) d4JJjUj IJJjlî 
. . JjJjJjjjJ (J4S4*Ub 4j jljJ ^4«SjJ j4m 4J jJj^SdS 4J 

: uJjujjj J 4jjjiw i»4J (ftLjLSjJ (JJj4jjjjJ - 1 0 

Labell . caption=Log ( Text 1 . text ) 

: jujjiJ JJjS |»4j jlj4J (JJjUj (JJj4iUj d4JijUj a JJJ a Jj4S ^jjjjV jj - 1 1 

Labell . caption=Fix ( Text 1 . text ) 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi AP X — t imer 
etTimer He . hwnd, O , 

S uto 




l_pic jdgidj (jUjU 

r . ' I . . ■ 1 4—1 



^i'i^ öî«b îj - 1 2 

: jyu^jjj 

Labell . caption=int ( Text 1 . text ) 


***** 


ilyanöK 

i ûLS IJjLu 4& ^J^ilj <j%>i«jjlS & j<û*u«jS i£jjl«Lj jljJjAJ 
lijA Jj JIiAaAj ljjj.Sj>wLj ^ûlû ÛAiLxU « ÛUjjjjLjiJ jljj^ 

ûLSiijLS <UJjûb i«û d4JiiL« >SLÛ * ÛUU ^jjjj jJUAl J^u ^StUjjûLj ^i^j 
« ÛJj£jj»j LJJjaSjLj ^ijJJ jj )j4lOj£mJ jJÛ>tujS ûuUJJ IJAJJjU jJj j 

i ÛJjdSiJl^J jIjjAj ijl«jjLS 4S4JjûU ^jiUjj ^ÛLS <U jnlujj 

fUj jlijAJ i ûlS J)j4j)j£Sjj 4J <u jj « Jjju j^JjjjSSuj Aj ^umj^jj 

: ijjiJjjj <LJ aSj Jjl^LSsJjU 

. . JSj Controlpanel jAlAJ uAç (jSLdS j »j»j4£j Start ^lubJ 


. Windows Messenger 

My Music 

‘ViVj Windows Movie Maker 

My Computer 

Çontrol Panel 

tA MSN Explorer 

Set Program Access and 
' Defaults 

Windows Media Player 

Printers and Faxes 

Tour Windows XP 

Help and Support 

«■ 

Microsoft Visual Basic 6.0 

Şearch 

¥' ) Run... 

All Programs ► 

Log Off tol Shut Down | 


| f Start _-_i * Ci ” fe Projectl - Microsoft Visu... 
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Pr ivate Suto F o rrti Load ( ) 
^ V Me . Caption = "Key Spy 




■ Crc eit e an AP I — t i mc rr 
SetTimer He . hwnd, O, 1 
ncl Sub 


. ^ ...» 
Lfdc jdgicu 

, dLuU<b 



..4Sj(Date and Time ) jljj4Jj ÛLS ^jaSjb ÛL &jjj UJ 34 U 


File Edit View Favorites Tools Help 

Back » j ^ Search Folders 1 Iîî|^ 

" \ x 


Address |(3' Control Panel 


3 


o- Switch to Category 


See Also 


^ Windows Update 


Help and Support 



ê. % m W %( ^ ^ 

Accessibility Add Hardware Add or Administrative Adobe Gamma AutomatiaL Date and Time M Display Fonts Game 

Options Remov... Tools Updates Controllers 

Keyboard Mouse Network Phone and 
Connections Modem , . . 

& % rn 2 as 

Scheduled Soundsand Speech System Taskbarand UserAccounts 
Tasks Audio Devices Start Menu 


Internet Internet Keyboard Mouse Network Phone and Power Options Printers and Regional and Scanners and 


Faxes Language . . . Cameras 


. .ijdljjSj Date and Time properties i£jjiwj£LÛ 



. 4$<ûjd£j dL^ aSajLS bJJjjiu 

<U j JijlJ Lu J Textbox ^Sjjljjlj jijijdSJ ijjj a S<UijjjJ l7mVl 
: Jjîjjjj JjJjlj^ .£4j|jj£ ^<û j jjjjuwj Text iJLûLSJUJjjJUJ <UjG 

: û4£jj4j£U4jS ^jjjIj 4j ÛLS u - 1 

Textl . text=time 


l+_)(*& A %$#@!«< 83 


»> !@#$% A &*()_+I 





Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — timer 
etTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

, dLwUdJ 


Textl . text=Date 


: jjASjUAj jIjjAj j ûLS jj -3 

Textl . text=now 


** 


'k'k'k'k 


'k'k 



(jjiwiîJrtAi t^jSj«&Wj 4 *ii 4 tl 


Label (Jhyh jjljjLj \ju jtjtjdSj J$j jSdJtjjjJ 

jPAjjL? ijCiijjMi f>Aj jLwLi » t£btj $ 2 jj JSj Jbj Picture 3 


x jSj 


^jLSjljjl 

JluG 

jLSjjljjb 

djj 

Name 

HScroll 1 

£$S- djj 

name 

HScroll 2 

( djj 

Nmae 

HScroll 3 

<j+“> 

Caption 

Label 1 

jd ^Jij 

Forecolor 

j ^ 4_JOl 

Caption 

Label 2 

jjAw i£j»J 

Forecolor 


Caption 

Label 3 

J33* 

Forecolor 
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Pr ivate Suto Forrti Load ( ) 

î . Caption = "Key Spy ri 
1 Create an AP X — timer 
SetTimer He . hwnd, O, 
End Suto 


1_/Uc jdgidi Jljjlj 

, dLuUcb 



: Am ^Sjj 4£<Lu j 41» j jLwU 



b Load i£jlJjj 4Jj 45 j Forml j4w<U JidSijjJ JjS ^iuyjj jj LLuoJ 

: JjJjlj> Ji»$S 

Private sub Forml_Load ( ) 

HScrolll .min=0 
HScrolll .max=250 
HScrolll . Smallchang=30 
HScrolll . Largechange=50 

HScroll2 .min=0 
HScroll2 .max=250 
HScroll2 . Smallchang=30 
HScroll2 . Largechange=50 

HScroll3 .min=0 
HScroll3 .max=250 
HScroll3 . Smallchang=30 
HScroll3 . Largechange=50 
End sub 

aS AJdjLS 5<û UUjji <U Load ^jlJjj dS ûûljj »$4j IjjjÛJ 

jAlwlj « iJdSJWjji ^jlSjljjijj Low j Jj UJjjjS jAA bdjiJ « jjdJujSjj 
dS ^AilJjS jJÛ « LUJ»» jjLjljjS j4j 4S<Wjji ^JjJÛJjS ^JLS AJ 

<U <U<LuG j AS Jjjjwû uJj j uS j JU jb jjjJJjjdS Aj <U<luG 4iLJUuyij JJJ j4*yAJ 
jp’jJuwilj JjljljjS jJj I J<S<Ujjî i£jj <L)J jS J.J <lS<UJjwû ^Jl jyû' ^jjjSjjUj 

.. jJJJJjj 
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^^End 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP X — t imer 
etTimer He . hwnd, O , 

S uto 


l_/Uc jdgidi (jUjL» 

r . ' I . . ■ 1 4_1 



t$»i$& ptti HScrolll j»4SdJ jAuidl SU lShii Lun J û 


: Uui^jo 


Private sub Hscroll_change ( ) 

Picture . Backcolor=RGB (HScrolll . value, 

HScroll2 . Value, HScroll3 . value) 

End sub 

: Jul^ RGB AjAjLwmS4j £»$4jJjuU ^J ij . ASAjjj ^jljjLj AjI^ 

R=RED 

G=Green 

B=Blue 


. . j j»jj^J j ^aSaj Gi-Û i^jjjwû ^jljjLj ^jj JuLSj iS 

idn j jj HjS j»4J jJSj ^iiji ^J^wLj ^Jjwû j4w<U wldSiljJJ Lbuöj 

Private sub Hscroll_change ( ) 

Picture . Backcolor=RGB (HScrolll . value, 

HScroll2 . Value, HScroll3 . value) 

End sub 


jLwL , jjjjAu j jj ijS jL«A& jiûuLÛw yj^wb (JÎJjji jJ jJJ^lî 5<U j4A 
« Lçd$ju jLSJÛJ>2 IjjI^JJJ j A j L jj 4.' ^jL dlwj jj JjÛjIj F5 i£A«£$J 

. . uJi Uj4wAj ^jlj^S ^ ûj^aSjJjjJ Ij Picture jjljjlû <U jLSdSjj j\LujJ 



***************************** 
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Private Sub Form Load ( ) 
He . Caption = "Key Spy " 
■ Create an AP I — t imer 
SetTimer He . hwnd, O , 
'End Sub 


l_p_U= jdgicu (jujLt 

, dLwUdJ Jd 



» ^lji^ j<Ubj<U S$L) 4j JJLw jjSAJiULjjiU j^jûwjlj j4u 4.UJJ QuoJ jljjjJj 
SÛAZji ijjljub j juu^j (^Sujljub j ^Jfwb jû ^Sujljub 4J 4J4«Ljj4J ^Jj 
4S4jJfrwb 4jjjjû ^ jJ4SjJLu jÎLu 4S 4 j L)j 4 j 4S Ll S.uLS &i jjjpL^SLu jL«j4fl 
jU^ Jhjşfa 4S ûlJJJ jl iTi n jGS4uJlju^ lJ4S4luxjJ yjjljub JJ jûuJjj^jJ 



j HScrollBAr ^j^wLj Jh jmi ^SujljuLj j JjJj4Su ijj.j ^JjjjjjJ Lui Lû 
jUj43 j<uS$J ^jljuU d4J j Textbox 
JjJjlj^- ^<ÛLj<Ûuu j4j j 4SJUjji jJ 4 Sj Jbj 

jLSjjljub jj 4Su ^ JLjl*- 



- jUU 


^LSljjS 

^JUJmJ JluG 

jLSjjljub 

Frmspeed 

Name 

Forml 

Desktop 

Backcolor 


j+L lS J 

Caption 



l+_)(*& A %$#@!«< 87 »> !@#$% A &*()_+I 





Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an API — t imer 
SetTimer He . hund, O , 
End Suto 


1 _/Uc jdgidi (jUjli 

, cLuudj 


True 

Right to Left 


CmdExit 

Name 

Commandl 

Çj ' L .1+ ' ^ 

Caption 


True 

Right to left 


hsbSpeed 

Name 

Horizontal 

SCrollBar 

0 

Min 


100 

Max 


True 

Right to left 


txt speed 

Name 

Textl 

2- Center 

Alignment 


J^ 

Backcolor 



Fore color 


CjI& 4-uj 50 

Text 


True 

multiLine 


True 

Right to left 



jAuiAl dUiShtAi AfAtijjAJ jU tjtjii 4j$ç tfifS jj ITinVl 


: AwjJj j4Sj ( $M?li ) (yiLtjAS JtoSji 

Private sub cmdExit_click ( ) 

End 

End sub 

cmdExit jJ tjJjjÊ i£ Commandl ^£$b £ji- ÛJASJ AStijS jiSdJ 

. . . tjL)l i jL« jJ jLeji dS dJijL) jtj JmAaJJ 
jLwb hsbspeed 45j 4£<Ljjjib 4jJjm ^jljjb jJmiJJ dulSLti Lua.u 

:4j!j ASJjJjm &iljj% jjlijj <U JjMjjj tjtjlj,? JtijS jJj 

hsbspeed_Change 
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End sub 

jU$|j jUj^- 42 tAixujj iSjljxû ijjlj txtspeeduJASj jjAm j4^4j htjxl 


4J AjLmS<U uj$4SjJjJJ 45 (£$|j ^Jjljufj j<Û jjjtÎJJ »j « JjLLJ 

"Clilc. 4^/^S s tr (hsbspeed . value + " 
4Jl^4S ,j String ^J^Ijiuj^S j jLSJÛjJ 4) jLJ4jj£ 4 jIj Str Ujj»J 

fjPjj 4J 4jLuS 4J Uf^SjJjJJ lJ4S4Ûuyjj ^HjJuLu 4J 4S ^4juJ 4J4jjS 

jU4u/ / nS” + hsbspeed ^JfuiLj 
dSi-Jjûi jj4^4J juuJJJ « 4jjd$JtJ 4S4ÖJjJû J JjîulJ F 5 J4«S^J l7mVl 

. .ujj4£jjjjj Ij Txt speed 4 jI_j Text 1 4) 4£4LUljj^ 



******** 
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Pr ivate Sub Form Load ( ) 
^ He . Caption = "Key Spy " 

1 Create an APX — t-imeir 
SetTimer He . hwnd, O, 
L^jrEnca Suto 


|_p_lc jdgjdJ 

, cLuudj Jd 



o 

o 





VScroll <jj>G ^ Ujiû i£)ljwb <U Û4 jjG J54 J4j^b ^jj jljjjJj 

l£4JJjUj ^4j Ij 1 4) jGjjLjj 4J 4 j4jjU 4j4jLjj4j ^ Jj » Bar 

Jj4jjjjJJJ ^4S4 jLjsJ Û j^4jUj44 jjS^JiUSfJ (£$A 4J iJbljJ 4J * jJjJjJJJ ^4A 
iJAtSjA Sfö 4j jLSb jJjJjU4£ 4 JjUj j4SU Jj^nU $J . . IJ Text 1 4J 
» jj4ij ijpdjjf jL«4SjjLS * 4Sjj4jjjS$S 4 j jJ4SjJ ^UjLj 4S J^4iUj44 
j 4jj^uû j»4J (10) jjUj AjLSj j i£4£4jUu Jj jLLujj 

1+ 2 + 3 + 4 = 10 

. . . jj4jISjj$S j^4S4jU ASjjUj $SG j$4$4j JjUj 4l 4 j($ 

: jjjjjjb 4S<WLjjdj j^4S4j4jU jSLutoJ 
3 VScroll BAr^jjiw ^IjjLû ySdjljjb _j J^Jj4Sj j$j ^SjJJjjjJ 
_j 4S4jjjî jj 45 j Jbj jUj44 j4«SjJ i^jljjb jjJ _j Textj Label u^jl^ 


: 4Sj 4jG4jjw j»4J 


^jLSjljjS 

jGGjAUy 

jbjjljwb 

Frmsum 

Name 

Forml 

(_£ û j j£ j£ <_£ 4-ûli j <j 

0 jUj 

Caption 

True 

Right to left 

cmdExit 

Name 

Commandl 

jjiui&i j 

Caption 

True 

Right to left 

Cmdsumit 

Name 

Command2 

ûj 4j.J 

Caption 

True 

Right to left 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — t ixner 
etTimer He . hund, O , 
'End Sub 


ljlLc jdgidj (jUjU 

r . ' I . . ■ . d_l 



tjtjMjJ 

Text 

Textl 

2-center 

Alignment 

true 

multiline 

False 

Enabled 

True 

Right to left 

LblResult 

Name 

Labell 

l 5 j 

1 : jjjl jJ aa 

Caption 

True 

Right to left 

VsbNum 

Name 

Vertical 

Scrollbar 

1 

Min 

500 

Max 

1 

Value 


. . tAJ ^Sjj 4 j ijlSi ftJ jLÎy 



: 4J tşlu f>AJ jL StijS ^ixujjjAu <Ujjj LLuaJ 

ti$£ f>JJ General Declarat ion j»j$3 j)J ^£«5 ^idibdilj ^JjAJ 

Option Explicit 

4SiUbj<U lsJLj^S (jiijb^lj j&J ( jrûtt^b) iJAaSjJ j <Lu 4J bLdSjjJJ jLib 

. .End : <Ulj <Lyjjj 
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Jk 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy r ' 
Create an AP I — txmer 
etTimer He . hwnd, O , 

E nd Suto 


ljlLc jdgidj (jUjU 

r . ' I . . ■ 1 4—1 



ptti j Cmdsumlt 4J($ A5 j ( »$4j ijZjZ ) i jAuJJ jXdSliii Lun J û 


Private sub cmdsumlt_click ( ) 
Dim I 
Dim R 

For i=l to vsbNum.value step 1 
R=R+ 1 

Next 

TxtResult . Text=Str (R) 

End sub 


: Jî. Jylt ijjljjLj jj AM j jj HfS p>A J LuuJ 

Private sub VsbNum_Change ( ) 

LblResult=":Lp j' (_5 0 jL» j" + Str ( vsbNum. value ) 

i^ij\j£ iJiijS $ ijj'jjlAb Scroll jjb « iJjLSjjlJ &2AJ JJ jLwL 


: Auijjj 

Private sub vsbnum_Scroll ( ) 

Vsbnum_change 
End sub 



jj F5 LuLû 

Aj jLuL « 4 £<uL)j4j ^jjj&uûuJ 
idJjjjLj ijJSJjjj^Lui dÖJjjj i£jA 
fjSm j£ j45jjjljj 
£<&4.*lxj ij j yjJH ASj (i$A jjjS$£) 
. . UjjnW^jjJ h Textl AJ 
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www . aryanz .cjb.net 
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Pr ivate Sub Foriti Load ( ) 
Me . Caption = "Key Spy r ' 
■ Create an AP I — t ixner 
SetTimer I-Ie . hwnd, O , 

E ncl Sub 


LjUc jdgidj 

, diu >4-t 






Visual Basic 


3lg.l l -n g ^jllgLa JuL±3fljL 

CllCK 

dubllclick 
Mousedown 
MouseMove 
MouseUp 
DragDrop 
Dragover 
ke\‘T)o\\ n 
kevl’ress 

01100010111011000000101001 

111000101011011011101 
0000010001 10010001000 
U 100011000100010000 
WL 110000111000101010101 
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FN Pr ivate Svito Form_Load ( ) 
f"* -w Mer . Capt ion = "Key Spy" p Ir- idOicti ,*tLi jlj 
■ Create an API— titner 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd Jj -»5 

nd S uto ** - * — ** - 



lJbG4»bj^ i,i 4J4A ( j SLuUjAA JbAf* jibuy jb $ JLu jljjjAJ 
jb Jlûbjdj ^iljubsi 4 j jj jijSSjJSXtti jb bbjljiib jAiwAJ jtjS&jJS 
$.mJtSjŞ) '$t Jjjj . jûjj^&ûj jASjjljjb jb jJ45j bjjljjb Jj jljjS j$<b^b 

* jJjJjJJlJ 4 J Jj bj <U JUAf^ ^Jij ju^b b Ji j bj 4J 


V 




. . ju^b Jjjb jj ^j^j j dnuuAJ bljji jjb ^JjV^ jj AJbuLi AjJjbjJj ^ Jj 
Image ^jlj^b j Option j!jlju»b j tjtjJSj [$$t ^SdJfjjjJ I7mjj 



4£4«jj£ jj jSj Jbj 


njjSjjj JSj JûGjûuu ?>Aj jLwb 


^jisjijjS 

^Jû<Uj4jjG 

jGjjljjb 

Fm 

Name 

Forml 

<î_jşu A-alj j +J 

Caption 

True 

Right to left 

Yellow 

Backcolor 

OptCab 

Name 

Option 1 

1-Right justify 

Alignment 


l_Lul <J 

Caption 

True 

Right to left 

Yellow 

Backcolor 

True 

Value 
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Private Sub Forrw Load ( ) 

= . Capt ion = "Key Spy " 
■ Cre at e an AP I — t- ime r 
SetTimer He . hund, O, 
'End Sub 


L/Uc jdgidi Jljjlj 
, cLuudj 


Optclub 

Name 

Option 2 

1-Right justify 

Alignment 


Caption 

True 

Right to left 

Yellow 

Backcolor 

Optbell 

Name 

Option 3 

1-Right justify 

Alignment 

L_J Jj 

Caption 

True 

Right to left 

Yellow 

Backcolor 

Imgcup 

Name 

Image 1 

'ja/ tJtjASLl dtUAijJ 

tjdJjijS (tSjuuidJ J&jjj 

Picture 

Imgclub 

Name 

Image 2 

jA /»$»jA Sj JitUjjjJ 

»$£»} ijS flSdjAj J&ijj 

Picture 

Imgbell 

Name 

Image 3 

ja/ »j»j»,Sj 

3$4J$»jS (sSjJjij iJAjjj 

Picture 


: 6A) (jSjj AJdjJj j»4J d »j 
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r \ pc 

k k 


P r ivat i 


Suto Form 


Load ( ) 

. Caption = "Key Spy " 
Create an API — timer 
etTimer He . hwnd, O , 

S ub 



l_pic jdgidj (jljjU 

* cLuudj Jd 


lyJÛbASlj $J J ti'jS j»A j IJdjAw 4 <Û^ ^JUbjAJ^J , J3S buöj 

î General Declaration dSJUjjS yluiS 



( ASAÎJj CIjj ) MouseDown ^jb 3 j^jjASj 


f* Projectl - Fm (Code) 


jaixj 


H 


MouseDown 


H 


Option Explicit 

Private Suto Form_Load() 


End Suto 


Private Suto Form_HouseDown (Button As Integer, M0Useu P 
If optBell . Value = True Then OLECompleteDrag 

imgBeli.Hove X, V fcgŞS 

Elself optCluto . Value = True Then 

imgClub . Hove X, Y 
Else 

imgCup . Hove X, Y 
End If 
End Suto 



*. Aujjj iijS j»b Lftjb 


Private subForm_mouseDown (Button as integer, 
Shift as integer,x as single,y as single 
If optbell . value=True Then 
imgBell.move x,y 
Elseif optclub . value=True Then 
imgClub.move x,y 
Else 
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ate Sub F 
. Caption 
Create an 
etTimer M 
Sixb 


orm Load ( ) 
= "Kev Spy 
AP I — t imer 
e . hund, O, 


|_pic jdgicu 
, cLuudj 




Imgcub . move x,y 
End if 
End sub 

dVb- jLSjjAijjljuiAA iSjljjlû <U 4S4 JjAA jLwL » JjSjIj E5 ^<bSjJ !7»iVl 
jjj jnlujj * aSj LixlS IJLjj'3 <U jdJuSjsu jujL> iJbljJ <U 5 4Sj 

. . uLSj: 4JJjljiUA& jjljjL j Aj <G<UjG JS ^JjJjjj 



^JjJjjj j»4j ^jjjlu <b$jj jj ûjjjljj j»jja ^LSJljGjj dluijjjL) l: jjil 

: JSj 


x=0 

y=0. 


x=200 


x=10û 


(x, y ) jL ( jJ,j«)Glj Jjûu ^JIb JjUj IJj^Jj<Uu jJ,S<UJ ^ Jj AS A JU 
: JjJjlJjj j»jj jljij <ûi$4SjJ B jjilb _j( 0 , 0 )jAj Jb 4 jL(*S<U 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — timetr 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi Jljjlj 

* cLuudj 


D j( y=200, x=10 0 ) dJJjlw pAt C j ( x=l 0 0 j y=l 0 0 ) 

..( x=2 0 0 j y=3 0 0 ) 4jJj4Si3 

jAi JjIj AjAA Move x, y jrGujJ ûjJSj d£tij£ ^jJJiw 

. . dJtjlS |»A J jUs j JtjijtJ tfdZuiljÛ 4J 

Imgcup.move x,y 



jjAwjb Jj jJibbjJj ^ Jj tSxStj jÎLuLLŞ dJJj j Jj Gj 4 j jljjj^ 
ijSjjljjLj jijtjtSj SÛ uZtJtjjjJ <U jj . . JAjJjjj ^jUÎaS 'jJ ûjjitJjLû JJ 


: JSj <ûl_j Ajjtf i»Jj 5 JSj Jbj 4J Commandl ^jbjAS 


jljliölj^ 

^JLiJlb JluG 

jLSjjljjb 

FrmDraw 

Name 

Forml 

(jLuuS (_5 4-aU j 4j 

Caption 


True 

Right to left 


O-Flat 

Appearance 


Close 

Name 

Commandl 


Caption 
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Private Sub Fortti Load ( ) ' 

f* V. Me.Captiorx = "Key Spy" . p Ir- idOiclj ,*iL» jlj 

■ Create an API — timer LJ J r ^ & 

- SetTimer He . hwnd, O, 1, dLuU«b Jd Îjj5 

/jT E nd Sub — — — — 

Option JJ 3 S j»AJ wtuii Jbjj « jLSjjjS ^Luib j4w <Iujj Luuû 
widSbjJ jLwL) » ûaw j jj ^LuS ibdjbdSlj ^ûAJ AJ Explicit 

Jjlj JjJjjjAA MouseDown jjb , IJLwjb ^jLSjjb <U jd5j dS<Ujjî jduAJ 

: Awjjj JJjS (>Aj UJljJ <U j jwjb ^jlSibSjJ c jjjSlJ 

Private f rmDraw_mouseDown (Button as integer, 
Shift as integer,x as single,y as single 
FrmDraw . CurrentX=Y 
FrmDraw . CurrentY=Y 
End sub 

: Aujjj jjjS j»A j jdjjjjjjA MouseMove JjIj jujb ^jb jjLşj Jj 

Private subForm_mouseMove (Button as integer, 
Shift as integer,x as single,y as single 
If Buttin=l then 

Line (FrmDraw . CurrentX, FrmDraw . CurrentY) - 

(x, y ) , QBcolor ( 0 ) 

End if 
End sub 

<U jjjjLu dSijjjJ j ( end ) AwjjjdSiUbjAJiU ijijii Jjj^ i£JUSjJ jj jLwb 
. b File uamo) <U Save pro ject (jjjjljuidA 
UidS JjAwjb ^jA JJ jLwb dSAtbjdJ ^jjjSyowoj jJ JjSjIJ F 5 ^<uSjJ ITniVl 
^jljjjJ _$ ubjJ uujjJ uUUft jjiujj t dlU$*J jw^b 3 d5u dSJUjji jJLuiJU 
. .ijjJûjj J Paint i£JUbjJUi£dj$*i jwdJJUbjdJ j»b . uumoSj Ijlu JAÎjj 
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IJULmoS AjJ% i>} 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — t-imerr 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi Jljjlj 
, dLuU<b Jd 




: uLSj:jLS jLuuS 4jjj ^<uL)j4j 

55J J .u LiiJjjJ IjlSLj4j ^Jjjjui 4) jl ijj ^AjIÛjAj jljjjAJ 
4J juuJ4SuJ jj » 4J Current Y, Current X Line JLjlj4j 
. . jjjil uJ 4 j<ULj- jjj j^) Ljjj4w jl ifu S 4 ij j .£4 «Ljj4j 

: jLuoS JuA ^LSjj - 1 

t£4j|j)4J (jjlpJJ ijjLuL) 4J jjj t LuJJLU^- LûLSjjGjj JJ) j4S4J 
4) 4S4lLl 4 (jjlutuS jj « 45j JJ 4S j»4j ^jJ4Lw Jj^uJ jJ . LuujÛJ LLLa ^jLÛuS 

: LuJjJ 4jjjiw ,»4j jj ^SuiLj- <J Jj45uiLj- 

Line (2000, 1500) -(5000, 6000) 

>JY=1500 t x=2 0 0 0 4) 4SulÛA ^jLÛuS 4 j4j 

y=6000 t X=5000 



LUjîi 4J Lujljj j_j4j 47mjj) n 
«Lu$4SjJjjj jLS4j4U-j4 4JU- L^j4j 
. . 4Sj 4l^4Jjj j»4J |^jJ4ui 4jjuJjJ 

4) jLS4J4^jj dG |» V 4v 
djj jJjJJJ jluuJ Jj4jlj4ftjJ 

. 4S4jjj 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — t imer 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj 





jjjjlj^Jj jl^jj djJjASil A ûjASj jj4u j<^4j QuuU 

jaSaj ( ( 5000 , 6000 ) jCujj^jj b ^L?- |»Vaj ( 2000 , 1500 ) 

: jçÇuJjJ j^Jjl^j- £ JjjjLuê i»4_) ûj4Sj 4£jjj£ {JjJAu 

QBcolor 


^JjUj ^JlJUJ 4J ÛJjm^JJUJ ^4S<lUA AS JJA^JJj .: JjJ 

.ÛJjMjjti liAjljdS JJi jlfrû JLI AS h£jjj <U u<ujLj 
: ûIjjj jluUj jl5Jlijj ^jjUj j ûjjj 45j JJJjI$> ^4j47»i> |»4j £jJAu Lû u j 


Color 

Number 

JjJjBlack 

0 

jiu Blue 

1 

j_jAu Green 

2 

£jj j4u Cyan 

3 

jju Red 

4 

jjjMagenta 

5 

JjjjYellow 

6 

^juaWhite 

7 

^LwJjGray 

8 
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FN Pr ivate Suto Footi Load ( ) 

w Mer . Capt ion = "Key Spy" p Ir- idOicti ,*tLi jlj 
■ Create an API-timer J W ggj 

SetTimer He . hwnd, O, 1 , dLuU«b Jj \ * Q 

I /#End Suto ** ** - 


Light blue|,JLS tjjuu 

9 

Light Green ijL StfjjJuu 

10 

Light Cyan 

11 

Light Red 

12 

Light manenta 

13 

Light yellow 

14 

Light white 

15 


4J » uJjMjjtl AJJjûw |»4 J jja ^jjj <tf jj) m H jUAA ^jLuulS 4J l7mVl 


: UÛLûl^û <tf djJjlî ^Jlûb ^ jLS<tfL?- ^jjjStfjbJ ^ljj 

Line (2000, 1500) - (5000, 6000) , QBcolor (4) 

: ûjjMjjti dJtjlS f>A J jtfg ^Stf Jj 4 j j<û ^jLuaS jj ij 

Line (2000, 1500) - (5000, 6000) , QBcolor ( 1 ) 



: Current x, Current Y ^lSAÛAib- -2 
4jIj ûlt jIjjÊ jlSJjL? aS ûtjMjjti tfLuLS IjÛûjaj (jibj <tf AJ<Ûb- f«û 

: iJJjjS j»<tf Ajjjj jj ÛojI jSiû (jjbJ jLSAJb- 
Line(200,300)-(500,600),QBcolor(0) 

i»V^ « ÛJjilhSjJ ALU ^AJ AS JJ bj 4 J ^jlJUbu AJ Jj j tjljSjjili jLSAJb - 

:ûa«i j Jj Ij Form_MouseDown jjltf itf J^Jjl^ ^jjjS f>jjjj£jj 
Line (currentx, currentY) - (x, y ) , VBred 

^jû G j ûijûuaSjj jj (0,0) a Jb- <tf ûULu ûjaSjj tfltfS j»jjs j<b<tf tfLûLS 

IJUjjî tjSjjj^Mi JÛAj- <tf LLaJ , J^JjS UbJ ûSLdS AS J^JluJJJ jJjJ AÎJja 

. . <tfû ^ASJULm <Û ^jJAui j AiJ ÛLdS 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP I — t imer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

, dLuu4j 





<U jiSijfZdj jSjjj AjIj jûjJt* VBcolor <W<û hejej&u <U Lut Jû 

^JjUj lJ QB Jj pj’iiAi JJiSiijA u^Jij ^jJJj&jUj jJ jLuiJjJJ Jj^uidj Jijjji 

ûjjiMjjaiSiSjij Sjij UjI^j jj b vb Jj j jfiuijja iSi£jij 


BVBVBVBVB 


QBQBQBQB .VBVBVBVBVBVBVB 
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(£$A4J 4S « uJdJ (£ljj ^ JAJ ^S$JCJ ^<Ûjb (jJ Lm oS <U JjjSjj w)4uLj jUJ.J<Û 
. . jj«$jjj (jJSjJjS U MouseMove £>b AJ $ öjjuuSjJ JLu$ j$4w$Lj 
: 4S4jj$j $j jSj ^AÛj- <ûLj<Uluu $Aj $ j$jjASj Î£$j ^SJjjjjjj Lu ö û 


jbî^ 

jJJLU AuLj 

jl>«b 

FRMhowof ten 

Name 

Forml 

(jîuS L 5 “LaLj j 4_j 

Caption 

True 

Right to left 


General Declaration !jjSAjj$î ^ÖmS ^jjjL'i^lj ^uJû <U jLwL 

: öomjJj J$Jj($> ^jj^S j»Ju JCuiJ$jJ 


Option Explicit 

: JLwjÛJ jj$S $AJ $ jjjj,xiA4 MouseMove jjb Ij Formi <U Lbuû 
Cirle (x, y ) , 40 

jAuAj AÛU$AJ j«$L 4 jLwb « ASAjbj4J ( j j uu i-jlSJJ $J JjîulJ F 5 ^4«S$J 
. . UUJJJ uu$jJ J4J (^ljj 4J dJU ^S^ftJ (J4jjb jLuJJJ* !J4S<Lj$i 



JUjJlSb fkVjJ uÛJJJ uw$jJ jLSbjb IJJ,S<Lj$i j4u4J jw$b j<Û$^- 4J IJJjûi 
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Pr ivate Suto Form Load ( ) 

Me . Caption = "Key Spy " 
1 Create an API — t imer 
SetTimer He . hTjnd, O , 

L sWt£.xxcX Suto 


|_pic jdgicil 
• * cLuudj 



djd£ Û 4 A ûûb Ckujji <ûjU Ij 4 j ûom j jj iijS jiJ Û MouseDown 6 M 
ûujji jLSdjjU jj jnj U ^UjilJ Ai <Ulj * ujaSh dSjjjji jAwdi 

ûwjjJ dSdjjb Ijdj . ÛAMjjj dSjjjSb MouseUP ^jb AJjdSdJ j»V JÛ 4 ûljjj 


L&ûj 4 ûjjjjjjAj ÛLIS jLub j ûjJSh dSdjjja jJluAJ ÛUIS ûUjLS G ûub 
. . ûjjjj ÛMjjJ dSdjjb ijijdu JJ dbdS (JijdjljdS J.J JÛIj ûjjjj ûwjjJ dSdjjb 

: !jjjjj!$£ /JiijS j»Jd 

Circle (x, y ) , 40 

jLwb . »jj J jiS û Jj Lu J jbdSdJG dSjş? 4 IJÛLLj~ j4& JJ 4<7n^ 1 Jjjb juJ»i 
JLmoSj Jjjb jruJjJ Ijjjûd 4 jJASjJ ^jbJ dSdjjb 6»j?f> j jru^jjJ dJjjjjjlû 


4 jJjjSj JjJ&u jdJ jrûl^JjJ j»Vaj 4 Twip Jjij£) Aj ûu aSaj 4 0 ^aSjju 

. . ÛujJ lj Scalemode ^JAÛuu AJ JûJjJJ 



ScaleMode 

|l - Twi 


ScaleTop 

lo - User | 

ScaleWidth 

1 - Tw 

E 

ShowInTaskbar 

2 - Point 

3 - Pixel 

4 - Character 

5 - Inch 

6 - Millimeter 

7 - Centimeter 


StartUpPosition 

Tag 

ScaleMode 



j JSJJ 1440 Ai AjLuSAj AS ûLSjJUjbJ Twip Jjij^J Ai ^aSjjtÛ 
4 0 Jjbj IjAJ |%U 4J jjjjSiJ j4Sû uû«j jj 4 Twipl JÛ AjLÛJj 

<û 4 jJ ^SojJUjj jj ijJjjASj jiS 

AjjaJ jJ tûjpiijiiijjdSASiJ ( 4 0 ^ J jU )(û< 

Circle (x, y ) , 5 tAujll 
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Private Suto Form Load ( ) — - 

- Capt ion = "Key Spy" ljUc jdgictJ 


n 

L jf r ^ 


^reate an AP I — t imer 
îtTimer He . hwnd, O , 


dLuU<b 






tfdJfaSjl ,»LS b«uJ t£ û>JdJ jU-j jb jûljj J j^jj4jLj4j JJ jljjj^ 

5 JJişjjû Jhjjdj jjjjjjjbb jb$£ aS ijd£jij£ <£j& 4j * j^^jjSIj jbw^b 


^ Textbox ^ljjb libJ i Label ^jljjb ^ ijijiSj £jj ^Jjtjjjj 


. . JSj 'tjpJ.jg' JjLu Jj <UJ AjjG î»4j j ftjjîjj 45 j Jbj image 


jljLSiljjS 

jjjiLJ LuLj 

jt^Û 

Frmbutton 

Name 

Forml 

(jjjjLa ‘LaSjJ J +-alj j 4j 

Caption 


(J<LW 

Backcolor 


True 

Right to left 


txt 

Name 

Textl 

tjtjMJj 

Text 


2-center 

Alignment 


True 

Multiline 


False 

Enabled 


True 

Right to left 


Lbl 

Name 

Labell 

ojfLb (jjjjLa <-aSj^ Aj (iljS +j 

Text 


2-center 

Alignment 



Backcolor 


True 

Right to left 


Mouse 

Name 

Imagel 

tjtjiSj Lljwjb £4jjj 

Picture 


False 

Stritch 



. . ^Sjj aS<U jj JJij jLwL 
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ate Suto 
. Caption 
Create a 
etTimer 
Suto 


F 

M 


orm Load ( ) 
= "Key Spy 
AP I — t imer 
e . hund, O, 


ljlLc jdgidj (jljjto 
, dLuu<b Jd 




: jLS<UJJJ<UJ <UJÛ 

<U UUSJ.J jou^jjj iJUluojAJ JJ 3 Caption jruJjJ JS : Labell 
« ûj 4 Sj JiiTij 1 ^ 4 j (^jljj^ <U jS LlU jjAJ ÛwJj<U « Jj^jlj ^iLSuwSjJ 

jjjLSiW^J JJ ûLlSJj" <Lujjj b Caption ^jLm^j wmLûJj JJ (WJjj ^SJ<U 

"jjiulj j*$L 

ASj^ljjn^j AjI^ aSwLuu^j jjjj^^jjjSjjbJ $J ûujjLSJj : Ailgnment 
. ûûu UûwljjjLj JJ jb »$ ute jb ûulj j¥ JÛJjASj 
Jj IjAj * jJjJ^JJJÛAA False lJ Textbox jjljJli AJ jiulû : Enabled 
True j 4 Sjj |»V 4 j tûutujjj IjLj ^ÛS ûljb 4 Sjj 4 S 4 «bj 4 J ^jjjSiûuûuJ ^JLS 

. ûumjjj IjLÛ ^luu^j ^jl^JJJ lj 4 ,J ÛJjJjut 


^ijj'LwSlj jjLAJ 4J J^Jjl^ jJJJjLcW i»4j GjjLui jLSjJ^S ^ûuu^j j)J l7mVl 

: Lm j Jj IJLSuWj^i 0 7ifiS 

Option Explicit 

MouseDow njljb * LL$b ^LSjjbJJ j 4Su Forml jLluLJ JlbSLjJ jLwb 

: JjjjVtLA 
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r v- 

_#End 


Pr ivate Sub Foriti Load ( ) 

. Caption = "Key Spy " 
Create an API — t irner 
etTimer He . hwnd, O , 
Suto 


1_/Uc jdgidi (jUjli 

, dLuiicb 




Private sub frmbutton_mouseDown (...) 

If Button=l Then 

Txt . text=" t -r J <+> lS j^" 

End if 

If Button=2 Then 

Txt . text="^' j lS J y ' 

End if 

If Button=4 Then 

Txt . text = " t U*d J û j'-j (J jJ" 

End if 
End sub 

jAwAj jjjSmlA LUUll jjU J.J SJSjlfp i£siş& pdj jLÛU 


. Awjjj |j MouseUP 

Private sub f rmbutton_mouseUP (...) 

Txt=" " 

End sub 

.. b File 4J Savepro ject jAwAJ jijSSjJS <L jjjjLb JlSjjjjjJ 
^jjjilj £}Ij 4J AS A.UÇ Jjj£ 54 J jLÛLuJjiW jûljj Lj Lut Jû 
SjLSsji Lw4J if ûjJiSj jJJu jAS<û JÛU^uu^j IJMouseDown^jU 

djU^uu$j jLwU « JLw$U ^ ÛmJUJU 4,2 Button IjJljJJJ JjUU 

.. "u 4£ " JUjÛJ IJ Textl jljljjlû AJ IjJj dJb 4j^û)LwSjJ 


l+_)(*& A %$#@!«< 110 »> !@#$% A &*()_+I 


Pr ivate Sub Form Load ( ) ^ 

'w Me . Capt ±on = "Key Spy" p Ir- idOjcli ,*» Li 3 
■V ■ Create an API— timer -J5 y & 

— Z^/ SetTimer He . hwnd, 0 , 1, dLuU«b Jd flj-iS 

L^TEncl Suto ** * 

2 ijL«3 Jj Jwu^U jj A? ^faSjt ( >ÎJ<U ) jjL«3 ^ uw^A» jjl^^S 

. . <lw^U ^.uyljJ^L) 4 JjL«3 tj ^UyjU ^iUulj i^ijSjt 
: jjjJtijti Ajj^Juû j»AJ jSjjoS ^jj^S Jj 
( jAuAJ JU^L ^UUS^J jjjjSli jjLj 
I3U) 1 4J 33 wjLuS 4J d&fa&j i jd&AJ 
yAî 1 ^AriS^J <U jjLuSjJ j<LS<Û3JJ . JU ujJ ^jljjÛ 

SJ<U ösJpiS 
i^ jj 2 <u ^^jjLuhSuw' jSA^Sji jaS<û 
uuulj ' <U AjLuSjJ j<lS<Û3jj . juu^j ^jljjLj 

SjA« ^jLjÎS 
i^aj 4 4j ^^jjLuSjj ^lSaaS^j j4S<U 

"uuiljJjb i^AtSjj" JJ <ULwS<U ( £i&im£ti . jUu^i ^jljjL) 

SJ<U ajDîS 

^jJAJL^ AJ ASjjIj JjAjAJ . 3 $jLuS<Lj <lS<uS^J ji&iJ j\x2tt <Ljjj IjjjuJ 
. . MouseDown jj^U ^<uSjJ ^j^Jjl^j- <Glj JJlJÛJjSlJ 
^t^tjAui ijti J^J^AjIj ( ju^U jJJjS LAjj ) ju^U jjjbjAJ jJ Uj^j4A 

: AiUjjUu^j MouseUP ju^U ^uuS^J 

Txt — " /y 

iSjljuLj <U ujşd&djjtt jjj^lju^j £UU Ij<LSAwjL« ^uuS^J jjljjAJ jJLS <LJ <ulj 

txt J3LUL3LXLS « U<LS<ûçwjj 
LIJjJj d<U jLwL , JjSjIj F5 i ^< uS^J <LS<ULjj<U ^jjjSwuLLi jj Lûuû 
ju^U ^jlSuUSji ^jjjSlJ |jjS4J jwuJjJ « JjSjIJ jujU a jlS<uSjJ 

3 uj^aSjJjJJ <U<L 4S3J3 <LJ uxLjjLj ^ljwu^j Ij Textbox <Lj MouseDown 
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Pr ivate Sub Form Load ( ) 

Me . Capt ion = "Key Spy" p lr- idoicti ,‘tb jlj 
■ Create an API-timer LJ J x w 
SetTimer He . hwnd, O , 1 , 

'End Sub 


dLhtt > 4 j 



<□15 ûjjSaJJAb dSfaSji jAuiAJ luiH döLS G ajijjjutai a$\juu$j jij 


i^uJjibi ujJlS Oii 5 ; 


Oj£j|j ^iJjL Aj^jJ jJ - dj ^ Aj 


JSl*J 


ujl j <_$ 


.. MouseUP 


j 



j jm^L » Aa j »4Saa ûJjjG jJA jûaj<uL)j<u ^<u jujlu jjljAJj^ 

^jLS^uSjj Jj LLSaj UiuG ajdjjp <U « JjaSjj Jbj jj Cheakbox ^jljulu 
j<U û<UjG j CheckBox ^jljulû lj<û jrtûJ^^u jj jLwLj j jjjSjita ju^U 

. . ûojjj ûJVb- JUJUS4J 

•*♦ y ** v 

lijljub i Image 33 Label ^Sujljulû 3 ajajiSj a Saja'jjjj Jbjj 
: jljjl Jlu^j <ÛLuG JUj <UjG ,»<U 3 JlSiUjj^ jj 4 SJ Jbj Checkbox 


jb¥ 


jLSjjljjb 

Frmbutton 2 

Name 

Forml 

iffJLUI 

Backcolor 

2 (J-Jjûs /e&$ 4 -a£j.J (_£ +-<slj j Aj 

Caption 
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Pr ivate Suto Footi Load ( ) 

He . Capt ion = "Key Spy" . p Ir- idOidi Li 3 lî> 

■ Create an API-titner J W 

SetTimer He . hwnd, O, 1 , dLuU«b Jd 

1 ^End Suto ** ** - 


True 

Right to left 


chkLef t 

Name 

Checkl 


Backcolor 

L_l 4-aSj.i 

Caption 

False 

Enabled 

chkMiddle 

Name 

Check2 

(jHH 

Backcolor 

CAJ\J ö^lj 

Caption 

False 

Enabled 

chkRight 

Name 

Check3 


Backcolor 


Caption 

False 

Enabled 

Mouse 

Name 

Imagel 

dlwjL tfAjJj 

Picture 

False 

Stritch 

lbl 

Name 

Labell 

j 4-aSjJ +) dl jS 4j 

4. iilj^j (jjj jLa 

Caption 

2-center 

Alignment 

iyiM 

Backcolor 

1-Fixedsingle 

BorderStyle 

True 

Right to left 


: A&J ^Sjj d«$ jLwL 
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sat e Svito F 
. Capt ion 
Careett-e an 
etTimer H 
Suto 


orm Load ( ) 
= "Ke v Spy 
AP I — t imeir 
e . hund, O , 


l_pic jdgidj (jljjto 

, dLuU<b 




w«i)Ij & P" Oû 0 jL> £ w 4j* ^ P* 





uJjJjJûJl! AA False lo Enabled ^jdÛLu Al ûûöLS b Check jljljjb 4J 
j ûjaSj ^SVbfb jb ûbb iSjj <£<wbj<u ^jjjSki iuj Jji S <U i^b 
1- bCplS b Label jljljwLj AJ jL BorderStyle &J&A mm 
j}»$ $ <LSijl>>y I jJf AjuJai « OjljpAA jb Fixedsingl 

dÛJlS b image ^jljwb 4J Stritch yJAaxu j ÛJjdSûijii Text jjlj-û 
. . ûIj USdJjjbJÛ jAA 4J ûaluj aSaÛjj ûbl>jjJ I^JLj jJjJjJJjjJbf alse 
* 2 ^jLSiuSaj [$& jûj 6 j aj j LS j J^S ^l «Lu * 

iPijb^Slj ^uJJ <U J^Jjl$> ^jjjs j»AJ <Cb J JJ IJLwjb ^jlSjjb <U (Uj jjj 
! General Declaration JÛIj ûjuujjj lJ4S<Ujjj ^juuS 
Option Explicit 
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Pr ivate Svito Form_Load ( ) 

W Me . Capt ion = "Key Spy" . p Ir- idOicti ,*tLi jlj 
■ Create an API-titner J gjfi 

/-^r SetTimer He . hwnd, O, 1 , dLuU«b Jd îV»5 

i .w E nci S uto ** ** - 


juj U ^jjjVtf- ;£)U IJLw^U ^jLSijU <Uj JSj jAuAl dbdSiljtA ’LLujj 

: Am^jU {$»i$S f>Jdj »jJ jjJAA MouseMove 

Private sub f rmbutton2_mouseMove (Button as 
integer, Shift as integer,x as single,y as 
single 

If (Button And 1)=1 Then 
ChkLef t . value=l 

Else 

ChkLef t . value=0 
End if 

If (Button And 2) =2 Then 
ChkRight . value=l 

Else 

ChkRight . value=0 
End if 

If (Button And 4) =4 Then 
ChkMiddle . value=l 

Else 

ChkMiddle . value=0 
End if 
End sub 

AjIj ijj'jjJ jujit i£j\j iJÛLSjjLi JJ jJA I imji 

: AjjjÛJ »ijS |»AÎ j MouseUP 

Private sub f rmbutton2_mouseUp (Button as 
integer, Shift as integer,x as single,y as 
single 

If Button =1 Then 
ChkLef t . value=0 
End if 

If Button =2 Then 

ChkRight . value=0 
End if 

If Button =4 Then 

ChkMiddle . value=0 
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ate Sub F 
. Caption 
Create an 
etTimer M 
Sub 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


1 _/Uc jdgidi (jUjli 

, cLuudj Jd 


End if 
End sub 

. . b File <U Save project ^jjjljûUA <U djjjLu ASijjjJ * 
3 F orm ijjSt J jLwb F 5 ^.ûjSlJ <U jLû ijAÛ ASiUljjJj IÎiiiVi 

j Check ^jljJÛ jûuiJ » ûuit^JtJ j*_jU 3 Jjîulj j*jU ^ÎLStUS^J J.J LÛSJb 
« ÛJj&Jû aS^uS^j jJuhJJ umjj jaSju 3 uuujj dVLr 4JJUS3J 343 û Aulu 

î jjç . ÛÛJJJ dVUÛ ASijljuLj jjlujj 

. ûjdSu MouseMove j*jU <£&}& <U ûJujG £3 j£ £jJJUi j^S^j jljûjAJ 

îU 4 ç ^JUS^jjj JÛU^JM^j JUi^iw î» 4 J jllujj 

If (Button And 1)=1 Then 
ChkLef t . value=l 

Else 

ChkLef t . value=0 
End if 

3 jJjSlJ JÛI3 And 1 juijJ UiûLS * jujU ^jLSuS^J JÛI3 Button iJJjûi 
Jj 4S44S3J j 44 jU 44S3J 33J /jjjjSlJ jU , jûûj dJiJtuS^J yjJjV^ 


: 4JI34S .J34SJJ 
I3 ^J 1 = ( 1 ( JAtSjlj j^toSjji ) j 4 S Jj 
l=^4S4^jj . Check ^jljjlû 
J34JI345Û <u 
0 = £4SA?jj . Check ^jlj^lû 
4 S 4 ^j 4 j ^jG^S 

.j^û jU Check ^jljulu 4J jU^j- 4S JJJ3Û 34J ChkLef t , jJJ gûjAui 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP X — timetr 
SetTimer He . hwnd, O , 

E nd Sub 


1_/Uc jdgidi Jljjlj 

* dLuu<b 




1 j4^4j i jjSVLpÛ j jjSVLç \$}}j 4J Value dj lum AjAa 

Check S Value JjJjjjs SjJ&u ij§jj jj , dVLçL) 4 jIj 0 LJVLç 4jl^J 

. . I jjLS< U Jjj< UJ <UjG 4J 4j JSj 


ffl!W 

lli - UricheckfidHH 

Uh?l>0 — ^ 

0 - Unchecked 

uhlu- > 

1 - Checked 


2 - Grayed 


i <U ! îiS 

( ($4j ) u4£ S&&Î1 = ( I jiSb u4£ S^J&Î^ î jG4«SjJ ) jASjj 

dVLî^ = Check jjljjlu ^jj 
Jj4jlj4fuJ4J 
dVLjLj= Check jjljjlû ^jj 
if^j<U ^LjÎS 

. . 4J4J »îJdh Î&J j44 jLu 4r i£V î ûwlj^Lj jjjlSiUS^J _ 
MouseUP j*îIa ^jl S4«Sj4 j4u4J jjjSi4A uuJJ , ^jlu ^jJAu j4^4j j»VdJ 

: ûjjSj 

— ♦ 

If Button =1 Then 
ChkLef t . value=0 
End if 

:4jj4S 

(...) j«$U ijjLS<USjJ j4u4l jJjSJAA uufJ ^jIj 
( 1 3 J.j ) _ 4:* ^4sS^J = (^jSf Jj44 j4u4J ^Lut J ^4J4«S^J J4J j4^4J 
dVLffLi = <U4«SjJ ^4 j u4jjG ^ Checkbox jjljjLi ^jj 

Sj4« ^GÎS 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP X — timetr 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj 



&u$La J 4S 1 ^<uS^J j<Uy<U MwJJ jAS<Û Aijlj ^Jj^S Jj 

jiu <W JÛLuSJJ 4S WUJJJ dVLelj lj<û 

. . ûaJJJ 4JJ$aw j<U j <L j«JjJ ^jLSAtSjJ jj 


jjt^j J > 4 (JhjLj jjJLSa^S^J <U ÛxLuLj ujLS^UljjJj i^ljJ d jA4 jljjj^ 
jjj iJJUbjJb Jj uiUS i^jLj jljjjAj t uau ( jJjS>SalS l >JJ j jJjStSalS ) ^bjjb 
jj djjljuLj j4u4J ^ujL ^jl^JUS^J <^JjSlJ jb- d<U Uulj « ÛÛj»u4JJjLSJJ 


&>b t ÛûLSjjU <U^ 4Sj fkjji jA<u<U ULdSjûjJ <û^b jj .. dûûbjJÛ ^jlJUbû <û 

. . JjjjjJUA Click ÛLdS 


P* Projectl - Forml (Code) 

3013 1 

|Form 

ICHck 

3 

j 


Activate 

Click 

" BBB 

Deactivat^f 
DragDrop 
DragOver 
GotFocus 
Initialize 
KeyDown 
KeyPress 
Keyllp 
LinkClose 


—IJJ' ^jlj 


S-lrJU.JL#û ^jlj 


: LjJlJ ^djj^lw j»Ju j»jji jljb jjiujj 


Private sub Forml_click ( ) 


: <Luf* j jjjS j»dj ldJ$4J j»jji jd<udJ jJjitSalS ^jb djlj 

Private sub Forml_click ( ) 

Forml . Caption="Lp lS j +j" 

4. 3 


Private Sub Form Click() 

Forml.Caption = 

End Sub 


j 1 >j 4 j ' 1 



“3 
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Pr ivate Sub Foriti Load ( ) 

î . Caption = "Key Spy " 
' Create axi AP X — timer 
îetTimer He . hund, O , 
'End Sub 


1_/Uc jdgidl Jljjlj 

, cLuudj 



End sub 

jAmAJ CilSolS IdJl^J <U 6£&aL)jA.} piwbjLSAJ jt Jj^jlJ F 5 i£A*S$J jLwU 
5<û jj wijjSjj iStojjb phwjjLj * ijS ûSoiS 4S j 4£ jLLujj * aSj ^jp 

" jJjSiSoiS ^ 4 «Ljj 4 j" 4 Jl_J cUbouwb AS jdiwJ dS 


bi Ûj-Uu l£ OûUj Oj 


! DDIBIKDIUKDIEt^^b 

jj ,CJ 4 JjJ,wJ,J jJjSSolS jL^ jji <U AJ 4 jjG JjU ^<U jjjLj pijJÛJp 
IdSoiStijJJ jjb dJ jjwuJ ^dSjjjS <Ûfb w J.ÛUjyÛ piJUbûdJ 

s Awjjj Dblclick 

Private sub Forml_Dblclick ( ) 

Forml . Caption^" 1 -^^ <_5 J ^j" 

End sub 

bJjJj jjûUJJ « J,Su fkjji jdudJ CUiSiJJJ ( F 5 )jLS tjAti) AS<U IÛjAJ jLwL) 
ÛJAj jilwJJ jJ jSS xL Sjb- ^jJAJ pid J » wJjwyjjb 4 Sj (Caption) IdSuiS 

. . " CUiSijJJ ^jLj" wJjdSjJjJJ iStjlyjjj IaLu 



|DI>ICIick 


0 

0 



j^Awjb Aj dS ^JjljLS aSuSj j ( jiîjjb ) ^ Jj jjjb ^ j lj dûp 

jj t j»jjû £p pLujp jj JjdSLujjw <U CÛjljub ^JjJLuwlp jj uJjJjJjbb <U 
IJLÛLSdJAbw <U jLwb » jp PwMjp jj dSujbj Picture pujljjb <û^b 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — timetr 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj Jd 


4S<ULjj<U jLwb j 1-Automatic <U iS. u j Dragmode jAm ijjftJ 
.. AjjlştuJ jdSj ASAiJj ^jljub jAudJ duiSj( F5 



AS&ijj jdnwAJ 'Jj»jI :<û jUSojUjAS tSjj? i ÛjLSU aSaIjj jjluj : 

jljb t lijLSjjb <U j aSj f>j jAmAI jLdShn <u jj » x, y ^ib^Uwijb <u 

. JLgjjj^ jjj^bAA DragDrop 

Private Sub Form_DragDrop ( Source As Control, 

X As Single, Y As Single 

Source.move x,y 
End sub 

jhpjAa dj t <U4£ U4S<Uj^4J dS » ASjjljub jA4 Source <U umAjAj IJJjb 
. JluJ^aj <lS<Uj 5 jjLS«j4£j AS<ubj<u lb«gj . juiV^- jj uhljS bLbbjujj 

. . uLSjj b$j>- jjluj j 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi AP X — t ixner 
etTimer He . hwnd, O , 

S uto 


l_pic Jagidj (jlJjLi 

r . ' I . . ■ 1 4—1 




jj i^ubb ûjjjiSjJlj bjjijub ûûjLS j_j«jb j»<û ^<u 

sştj&Sj (j & Jj jj j jJ JjLS i I J Text ^jl>b AJ j A j LÛ.Û I j j Jj 

i»4j _$ 4S4«j^j jj 4iÎJ Jbj Image i Textbox 


: 45j AÎLu jj4b JujG 


£>LSjljjS 

^jj<UJ JujG 

jGjjljjb 

Frmdrop 

Name 

Forml 

(jl A»SI j (^jjlAjLîuj 

Caption 

True 

Right to left 

Txtinf o 

Name 

Textl 

işiyjJJ 

Text 

2- center 

Alignment 

True 

Multiline 

False 

Enabled 

True 

Rght to left 

Imgwater 

Name 

Imagel 

j$«j 45 j d4J4jj$ 

Picture 

1-automatic 

DragMode 

1-True 

Stritch 

Example 

Tag 
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Pr ivate Svito Form Load ( ) 

Mer . Capt ion = "Key Spy" p Ir- idOicti ,*tLi jlj 
■ Create an API-timer J gjfi 

SetTimer He . hwnd, O, 1 , dLuU«b Jd 

I /gEnd Siib ** ** - 


: Amjjj h4SA«ji}£ 0 7 iTi*; ^jjjbdSlj ^LJj 41 j j jj I jj- ^JjJJ i»AJ GijAw 

Option Explicit 

JjJjjJAA DragOver jjb bjlSijb <U j 45 j Forml j<b<U jIU&jjJ jLwU 

l <LnjJj j 

Private Sub Form_DragOver ( Source As Control, 
X As Single, Y As Single, State As Integer) 

Dim slnfo As String 
3 X n f o — i ji ûjl^j I iulli" 

Slnf o=sInf o+Source . Tag 
sInfo= slnf o+"^ 
sInfo= slnf o+Str ( state ) 
txtInfo.text=sInfo 
End sub 

:<U/jjj jijJ jjJAA DragDrop jjb iJUjjî <U jAA jLwb 

'clear the Textbox 
txt Inf o . text=" " 

'move the control 
Source.move x,y 

j4wJJ dLUS jLwL « dS<Ubj<U ^jLS <Lu«b- jj JjSjIj ( F 5 ) i£A«SjJ ITinVl 
1 7 iii V i "ûuujjjJ lj Text 4J jLLujJ ( dJjV jj JluulSujIj jJiÎJ JlSJjjj 
IJASjJjS <U 4S Jj<ÛI jljujj jAj jSAjAj " 2 ExampleASAjjb uJjjuSjJlj 

Ajbjunjj 

V 

: AjUjuijj U Dragover jjb A) uJJJJ ASjJjS ^jbjAui j4S<Û - 

Dim slnfo As string 
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Pr ivate SuJd Form Load ( ) j w e. 

v. Me . Capt ±«=.n = "Key Spy" p Ir- idOjcli ,*»L» jlj 

■ Create an API-titner ^ y & 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

■ -w E nd Suto — — 

slnfo ;£4Sj$b 45 ÛLjlj^S j4w4J ûb«i LLjjjbASlj Dim 4 jIj 45 
: jufoj lj j4i i£lji 4J ««String Ju4Sj^ljjS 

3 1 n f o = " ûii j > «.)$ ûJIj I u «1 1 1 " 

: UjIjJ4j » J$lju«$i j4j 4jLw54J slnfo 4i($ 
slnf o=sInf o+Source . Tag 

4) Tag (P4i ow +j»454J £jJJ J slnfo (£$lj«w$j 4J 4jLu54J slnfo 4Jlj 
j5jû4iAM jb Tag j JU45jjlj>«b 4J Ûm4j4j Source 4 jIj 45 « IJ45«jljjb 
4J jbji- 45 Example 4 j 4jLu54J ^454^-^j « 4J45jjljjb 

: I J j4j jljJ 4J « 4jU^uyb l4jLS4jJJÛ4«J 4 jJÛ 

slnf o=sInf o +"45 < 3 jaî '' 

d4 J (£l_$J 4 j J<U 45 « j|>ujJ ^LS^j-jj 4 j 4jLuS4J ( slnfo )45j^ljjS 4 j(j 

. 4S4jfb l 4jL$uuaj 

+ slnfo ^jouJ ^jlS^j-jj 4 j 4jLuS4J slnfo )J4jlj4j ii($J4j 
....0.1.2 juûlj^j « 4JJjbj 'uu State 4i Ûm4j4j « Str ( State ) 

^LiLSlj 4 jIj « jû ^StoJlb’ jj Jj4aijjj$Sj 454bj 45 uJjJJJ jLuuJ ÛLÛLS - 1 
.. 2 4j 4jUS4J State c i-j.i IjjjÖJ 4S jû ^Suilb- jj4Sjjljjb 
4J ûjjbuSJlj 4Sjjljjb 45 Ij Text 4 2 ûû$45jJjJJ bCûLS ^jj^jj ^jj -2 
. . 1 4j 4jLuS4J State IjjjÛJ 45 j»4luau (£jJ4Û ^Saili- jj j^4SaJlb- 
^SoJb- 4J ûjjboSjlj4Sjjljab 45 ÛJjJjJ jl i»n ÛLÛL5 tf j4Öua ^jj -3 

. . Jjûw (^454^ ji 45. . Jljb ^SoJb- jj j»4.uuuy ^jJ4ê 

(yJjjSAJ 

■ -4iljjlj4i ^iLS4Ûe 45 4uJ4u$ ^SjjljjS s Inf o 

4J 4iLu54J (i454i-jj 
' 'ûJjboSjJlj LÖuoj" 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — timetr 
SetTimer He . hwnd, O , 
End Sub 


1_/Uc jdgidl Jljjlj 

, cLuudj 


Tag ^ jAjxw u?jj+ 

State ^jj + 

. .ÛJ jiSdijdi lj Text 1 <U 4 S 



*. JjU^uuû jjluaJ DragDrop ^jU <U ûjjJJ ASiljS ^îsi jJU/ jASaj LûuoJ 


'clear the Textbox 
txtlnf o . text=" " 

'move the control 
Source.move x,y 

jjASiiluj jjjV <U y Clear the textbox lj*«^j AS UuaSjj ^jJJ Jj 
Jj JiS « JjljlJ jU ( ' ) ^Ji UÛ J JjASjj JJ jûJ Jj iSj^ « Ûjjj-Jj |^S > nTiJ 
5<Û , ÛJj>JJ jjS ÛÛJ ÛJjw^jjJ JjAjl^J <U jJj<Û JiJjjLûj fk<Û ^iljlj 
jlj ^jjJ ^jjJjjjja ) juJjJAS « JSjjjS j4u4J Jjj^JjSiij jj L^iJu jûj^ljMjj 

: j+IJJ iJbljJJU ( Text (jjljuli 

Txtinf o . text=" " 
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Pr ivate Suto Foriti Load ( ) 

î . Caption = "Key Spy " 
' Create an AP X — timer 
îetTimer He . hund, O , 
End Suto 


1 _/Uc jdgidi Jljjlj 

, dLwu<b 


jLwb » j$blJ jU<& text ^IjjÛ jj AS Jjjjb jAj txtinfo Ijjjli 
(ja,ju) ^jLSAlwljb Aj LûjjJtJ AS , AJJ&ijljAÛ AS lumAjAj Source 

: juijjj ijJJ ?>Aj L^jAj jrûlpiJ 4 jIj4£ 

txtlnf o . text=" " 

Source.move x,y 


**&( * A ‘/.$@# )_+ &*( , A &*( )_ A /.$#@5 


Jh jjtzê 

: jujû jAÎAl JlAiJjjj JiJj'Xtf — 1 

jj ASj Jbj PictureAjjj ^Sjjljjb j jjjjASj ^ySAJijjjJ ijLS f>AJ jj 
jjb 4 IJLwjb ^jLSijb A) ,ASj Forml jJumA) jidShii jASAtjjb 

: AufU jjjS ,»4J j jjjjjjjb MouseMove 
Private Sub Form_MouseMove (Button As Integer, 
(Shift As Integer, X As Single, Y As Single 

Picturel . move x-200,y-200 
End sub 

ASAjjj jÛJJiJ 4 AjulfM fkjjfl jAuAl ju $ U j ASLÛJ JjJ JSAjÛjAJ jLwb 

. . uLSjJ 4J& UUu^b Jjû jiSA) 
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Pr ivate Svito Form Load ( ) •j 

w Mer . Capt ion = "Key Spy" nic IdOicti ,*tb jlj 
■ Create an API-titner J X 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd îjjS 

I /gEnd Siib ** ** - 


MjkujlA £$A 4J fkjjî ^ijjV^ -2 
Jjpl^SwJ ^SjJj^S 4J d,S . f»j$3 ^iJÛV^ 4J jjASjJ ÛJujG 4JJj|jj4J fk<û 
. . (jiw^jjiJ Module b4S4jLjj4j ^ImS ^jJÛLMSlj ^JyJj 4) j 
Module U Pro ject ^luuJ 4J _j j$«j45j ^i ^SjJij^jj 4 j ^j 

: 4mjûj ULu ^jjjjI^ ipV$S j»4i _j 4 Sj 

Declare Function ReleaseCapture Lib "user32" 
( ) As Long 

Declare Function SendMessage Lib "user32" 
Alias " SendMessageA" (ByVal hwnd As Long, 
ByVal wMsg As Long, ByVal wParam As Long, 
IParam As Any) As Long 

Public Const HTCAPTION = 2 

Public Const WM_NCLBUTTONDOWN = &HA1 

î»4,i _$ «jJ juJ4A MouseDown (jjb j4Sj Forml j4w4) ûUlSjjJJ jLwb 

: 4wjÛJ JJJjl^ i£JJ$S 

Private Sub Form_MouseDown (Button As Integer, 
Shift As Integer, X As Single, Y As Single) 
ReleaseCapture 

SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION , 

0 & 


: IJLwjjU ^JLS 4 2 jJ, jLSi J - 3 

,»4i _$jjjjj}4A MouseMove ^jb j Forml 4 Sj Î£$j ^SLwjji j4w4î JidSLiJ 

: 4 u$Jj 4J4S 

Private Sub Form_MouseMove (Button As Integer, 
Shift As Integer, X As Single, Y As Single) 

Me . cls 

Line (x, 0 ) - (x, me . Scaleheight ) , vbRed 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create axi APX — t-imer 
SetTimer He . hwnd, O , 
Eixd Sub 


1 _/Uc jdgidi Jljjlj 

* cLuudj Jd 


Line ( 0 , y ) - ( me . scalewidth, y ) , vbBlack 
End sub 



i jnj U J.S UiojLS <U JjASjjIS ^iijSildj - i 


jm$U ^UjS\i tijL) j A5j 4&Aaj j&udJ JijJSXjii j»j»j4Sd jSdJijjjJ 

i Amjûj »ijS f>Jdj »jJjdAA MouseDown 


Private Sub Form_MouseDown (Button As Integer, 
Shift As Integer, X As Single, Y As Single) 
If Button =2 Then 

msgBox"L>* j^® C5^“' J lS^ l$ 

End if 

. . »$AxijSj (jJAaLj I^JJ IjiSlj wuulj i£AjS»i jdSdJ AJl^ 

, uJdfd ÛmIj ^jJS f>jjd jAmiAJ j f 5 jLS ijJJM ASAaUjAJ jASaj ITiiiVi 

. . ijAjJjSii ^JuWLj ^jSçLAjJllu JfjjJii 

-Inl x| 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an AP I — t-imer 
îetTiKier He . hwnd, O , 
'End Suto 


1 _/Uc jdgidi Jljjlj 

, cLuudj Jd 




: jljSJjb i <^4JJjb J jÎjjS j j*jb - 5 


: tişS (*4j IJutjjb (j i <7iS ^jjjh4^lj (jûi&lJl j tjtjiSj (ySdJtjjjJ 


Private Declare Function Blocklnput Lib 
"user32" (ByVal fBlock As Long) As Long 
Private Declare Sub Sleep Lib "kernel32" 
(ByVal dwMilliseconds As Long ) 


tijS fkJÛ jtjJjjJAA Activate£}b jd&J Forml jAudJ JhlSJjti jiub 


: Ltijjj 


Private sub f orm_Activate ( ) 
DoEvents 
Blocklnput True 
Sleep 1000 
Blocklnput False 


End sub 


i£4jjjUj jij (jjijb ti <Uaj «iljjh i.Zj? Jj tStjluiSjiStJ ^ji S litjll 

■ ÛJj jSj Sleep ÛmjjJJ 


\jujh Sjû ipiAilijULu j i J. j Jj Lw - 6 

i»A j i Jji (jSjjjjJ jj dSiiLij Commandbutton (ijljjb jji tjLS jj 

: Auijjj ASij j£ JjJuS jjijjbASlj &!ûjJ 4J tjtjljlS ^tijS 

Private Declare Function ShowCursor Lib 
"user32" (ByVal bShow As Long) As Long 

: AufU b Commandl ^jljjb <U - 


Private Sub Commandl_Click( ) 


X = ShowCursor (False ) 
End Sub 


bComand2 ^jljjb <U - 

Private Sub Command2_Click( ) 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create axi AP I — t imer 
SetTimer He . hwnd, O , 
Eixd Suto 


1_/Uc jdgidi Jljjlj 

, cLuudj Jd 




X = ShowCursor ( True ) 
End sub 




t 


't * t 


t ‘ t 


t * 


KeyDown-1 

KeyUP-2 

KeyPress-3 


: KeyDown-Il 

û*J<U 4 ^U jSij JJijjnS jûljjJ dtj jAA jljJjAJ 

ûLu<U ^Uj iS (^jlj jL IJLwjU <ji) ^ Jj Li J.1 « jlû JjUjJ.iî ^jlJULfû Jj jj « 
jLjjjjjS yjLSA^J ûIjjj 4j jj « j^IÛIj juj U ^ÛLStuSjJ jj ^SajjjUj jû<u^ 


* iij AjA^JJ AjIjUj jAj LUJU4A J^Jjl$> AJ Ij « uaJAA ^JAjjLj ^JjUj 


Key 

Number 

F 1 

112 

F2 

113 

F3 

114 

F 4 

115 

F 5 

116 

F6 

117 

F 7 

118 

F8 

119 

F9 

120 

FIO 

121 

F 1 1 

122 

F12 

123 
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Pr ivate Sub Form Load ( ) 
^ V He.Caption = "Key Spy r ' 
■V 1 Create an API — timer 
SetTimer He . hvnd, O , 
L^WExxcS. Sub 



|_fl_Lc jdgjdi 
, cLuudj 



nlk 

/ 

X 



7 

8 

9 

+ 

4 

5 

6 

1 

2 

3 

ent 

nn 

- 

Key 

number 

1 

97 

2 

98 

3 

99 

4 

100 

5 

101 

6 

102 

7 

103 

8 

104 

9 

105 

0 

96 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create en AP I — t ixner 
etTimer He . hwnd, O , 
End Suto 


|_pic jdgjdi 

, cLuudj Jd 


I 

73 

J 

74 

K 

75 

L 

76 

M 

77 

N 

78 

0 

79 

P 

80 

Q 

81 

R 

82 

S 

83 

T 

84 

U 

85 

V 

86 

W 

87 

X 

88 

Y 

89 

Z 

90 


: ^jLS^uljJ ^JUljj 4 j - 1 

jrûl jj jLS4i4l$J (^jjUj jûl^JJJ jjjjjjjblj 4S j$4 j4jLjjAj p>dj 4j jljjjJj 


. . uJjiStijii IJ Label 4)$ « US<U<uljJ j4A ^jjjllJ <PL£ 4J 
jUjAS ^<wl$J ^jljjU ^jj _j Label ^jljjlû _j tjtjiSj a S4jjjjjj 4J jj 
: jjjjl <Lu^J <ûLj<ûuu |»4j 3 4S<Ujjî jj 45 j Jbj Command 


jbi^ 

ÛAÖjlu 

jljjlj 

FrmKeys 

Name 

Forml 

j_jl£ (_£ <-«13 j +J 

Caption 

True 

Right to left 

cmdExit 

Name 

Commandl 


Caption 

Cmd pushme 

Name 

Command2 
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: ; 


Prlvate Sub Form Load ( ) 

.Caption = "Key Spy " 
Create an AP I — t- r 

etTimer He . hwnd, O , 

'End Sub 


l_|Uc jdgidj (jUjU 

r . ' I . . ■ t < 4—1 



JtaSjUxs 4j j k) dliiSi 

Caption 


lblinf 0 

Name 

Labell 

2-center 

Alignment 

1-Fixedsingle 

BorderStyle 

JjJjllH 1 

Caption 

True 

Right to left 


: Jaj uZjj 4jj$Lû j»4J jLuU 



jluiS jljjU&j jmiA J<U >ş)j j- ijJJ î» 4 j Gij<Uy jLSjJlS (^jlJUJ j}J ITniVl 

: Auijjj UUj^ 

Option Explicit 

ijjjjûAi KeyDown jjb $aSj cmdpushme j4ji 4J LLdSlijiJ jLwU; 

: JLuijÛJ JJ^S ?djj jjUijU 4J 

Private Sub cmdpushme_KeyDown (KeyCode As 

(Integer, Shift As Integer 

Lblinf o . Caption="° 'UaS ji AÎ dL£ <j" 

Lblinf o . Caption= Lblinf o . Caption+vbCrLf 
Lblinf o . Caption= Lblinf o . Caption+"keycode="+_ 

Str (keycode ) 

Lblinf o . Caption= Lblinf o . Caption+vbCrLf 
Lblinf o . Caption= Lblinf o . Caption+"Shif t="+ _ 

Str ( shif t ) 

End sub 
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P\ P r ivat e 


Suto Form Load ( ) 


î . Capt ion = "Key Spy ri 
■ Create an AP I — t imer 
SetTimer He . hwnd, O , 
'End Suto 


|_p_lc jdgicu 
, dLuiicb 


File (Junj ) 4) Savepro ject jAmAI jijSSuiS <U djjjLu ASijjjJ Lu L û 
^ J 4j liLÎS) JAaSjJ jAuiAl dUiS jjlStjdju JSa* I jjdJ jiuU .. li 
jSLj JjSiJlJ Jj JmS jAu ,jjL SJu&jJ dJjJuSJj iJjljJAl * JSj ( . jû 

. . ûIbL jLlu ûtûUSjJ jJj ^jjljLj ^j$S 



L JjSjoS ^UuSjJ ^jjjSlJ jjU 4J 4S jJJ^J dStJjS ^tûjdiw jtSdj - 

: ûaî«: » AjLjol-sj 

Lblinf o . Caption="° j^?! J 'S?" 

juptJ j J^LuU$lû jUip’ iSt Label ^jljulu JjL lblinfo Ldjoi 

4J4A Keycode tjtjtuiJJ t tj Iju^) jAj ûIûLuSaj £JSt Caption ^jtjuu 
jUAjSjJ tjjSij tjSjJşS iS « ^twlj ^jS^JjUj j4w dûLSjJ LldJ^tJ Jûj^ij iS 
. . ÛJJjLSJj Shif tj Ctrl_j Alt Jj\SijS^J $j Shif t JAuj U«jj4A 
J ) LS J j 4 S tj JjUj fjjj^tSjtJ tSj tjtjlşi’ ^4j47iii> şij jjjjdiu 


. . /LjO jl_jjj 4J ûhdJûLLu Shift 


Shif t {£&S$J £>U 

Ctrl(£4USjJ jljlu 

AltiS^USjJ &U 

u>>> 

& ijîji 

Shif t 

ûltljSjjlj 

ûuJl^AjL 

lujI. ijnS^jiJ 

0 

lujIjSIj 

ÛyUl j^SjÛlJ 

lujI IjjjSAilJ 

1 
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Pr ivate Suto Footi Load ( ) 

He . Capt ion = "Key Spy" p Ir- idOicti ,*tLi jlj 
■ Create en API-titner J W gS 

SetTimer He . hwnd, O, 1 , dLuU«b Jd 

1 E nd S uto ** ** - 


ûûjljgSdiU 

ÛÛjI^SU 

ûûjl. ijnS^jU 

2 

ûbl IjgllJ 

ûuijnSu 

ûujI^JûU 

3 

ûûjljgSjûU 

ûuJljrÛAjlJ 

ûuji^iu 

4 

ûûjl^SjjU 

ûpijnSu 

ûujI^JûU 

5 

ûuJlj&LilJ 

û«jijnSu 

ûûjljçtSlJ 

6 

ûuJl^U 

ûgijnSu 

ûuji^iu 

7 


<**>> >j ^Jj%*-4j >J ÛÛJjLSAJ str ( ) IjlS £ J>S ^>J 

^blJ « ûjjiiJÛLuoJ b Caption Jj&UM 4J AS « ^ûuaj 


jJ jLS4xuflj £>>*■ <U (jJJjUj tjjJjî^ i£j4 4ÛUJJ Str (keycode) 
^jj >ijj^ i£>4 4ûijJJ Str ( Shif t ) c j|jlJ > String ^UMjj 
> jLSjjJJ u i7mKjj i£>4 <Lujjj vbCr Lf ^jblJ « ^juwjj ^Soj-jj >J ^JJjUj 

. . IJlS<U (JljJAJ jbjjljujj 
ilujjj jj>S KeyUP JjjmS e jLSLU^J jJLwJLÎ jj j^JAA uujj ^jb aJ Luûj 

: cmdpushme JÛI>Command2 ^ljjb AJ 

Private Sub cmdpushme_KeyUp (KeyCodeAs Integer 

, Shift As Integer) 

Lblinf o . Capt ion=" û j' j u <î Cuj eJ" 
Lblinf o . Caption= Lblinf o . Caption+vbCrLf 
Lblinf o . Caption= Lblinf o . Caption+"keycode="+_ 

Str (keycode ) 

Lblinf o . Caption= Lblinf o . Caption+vbCrLf 
Lblinf o . Caption= Lblinf o . Caption+"Shif t="+ _ 

Str ( shif t ) 

End sub 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an API — t imer 
SetTimer He . hwnd, O , 
End Sub 


1_/Uc jdgidi Jljjlj 

, dLuU<b 





aj&SjS iS&AÊj} j Shift ^yûjSlJ £$1 <U iS ^<ûbSjJ j&J tfajijajSjjj 

iUJyujiai 

ajASA JtoSja JU4^ ^jjmijS^a Jj aS ^ajLlu jJj jU ^AibS^J jJj jljjj^ 

i^juSjj ujj aa \jij « aj§iS JLj aj l ( ) ^Lj ^luujj <ûf«j jj « ujysjjaa 
jb ( L ) ûlujjaa ajjiS JSj aSJlÎjj L%1u. ( 1 jLwb ûjjSjIj Shif t 

« ÛJj^JlJ ( : )j Shif t ^jLStUSjJ ^'"Jjl! ûlJjjJLwAJ ( : )|jLi-jJ ^juujj jJ 
jj LÛmÛj « ûj^aSjJjjj « aja Keypress ^jb jjA <U jSajLSjj ,»<û ^jjS 

<U iujjj ajaj\jS ijaa}S ?&:■ Keypress ^flJjjj ^jLS <U juJ&Sjjj 

cmdpushme_keypress ( ) 

Dim char 

Char chr (keyAscii ) 

Lblinf o . Caption="keyascii="+str (keyAscii ) + _ 

"char="+char 

j ajajuJ ^aSaajS Jûlj ajajJjuJiajjl&A keyDown &*Sja ^jjjSlJ jjLS jLub 
‘taS jj ç» <j j dhK " tffaSja j&m&J duiS jLwb « jLS aj&ka 4S<Ubj <u 

. . JlLuj jJSjjjS j jjûjlJ a j Shif t tf&jSja ajjjuŞjAuiil LLLû « 45 j"<^) 'b 
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W* W Me 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi APX — timer 
etTimer He . hwnd, O , 

S uto 


ljlLc jdgidj (jUjU 

r . ' I . . ■ 1 4_1 



: JjjuS tjjLSJUSjJ $ jjj$S ^JUbjAJ 


ASJUjji lj 45j Jbj Textbox (jSujljub j j^JjASj jb ^SAjjjjjj jjLS ,»b jj 


: jjjSj J,jLj<Uluu ,»4j _j 


ûb^ 

^JU<UJ<UJÛ 

jljjb 

f rmöpper 

Name 

Forml 

(jl£ <-a£jJ (_5 'Ualj j 4_j 

Caption 


txtUserArea 

Name 

Textl 

3- Both 

Scroll Bars 


JjJjmO 

Text 


True 

Right to left 


True 

multiline 






: Aujjj IjaSlWjjî (jTifiS ^jjjb^lj Jj JJ j^jjl^ ^bbj i»J,j l7mVi 

Option Explicit 

jLSb j u U ijJ .ûAş Ij Text 1 ^jljub Jj ^ AS i^n iTh i AS4«bj^ jLSb 
. . j^JUjjjJ ^jJJ Jlu^jJjJlui j^S jjlujj « jjSjIj Enter ^<uSjJ 
JLuaj uûjjl^ub Ijb False JJ uUjSj multiline* ^j-jj j4S4i |»VAj 


. . . JJ<UJ£$J JjJJ 
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ate Suto 
. Caption 
Create a 
etTimer 
Suto 


F 

M 


orm Load ( ) 
“ "Key Spy 
AP I-tJ imer 
e . hund, O , 


i filc idqjdi 

rtt ,f 

1 , dLuU<b 

S 



: Enter ^jilu^jLSfJ 

jjjj 4iu&j Uaj JA&j False tJ Multiline ^jAomh <U jtjJj AJ 
multiline ULuU * ta fjLS_jAJ 6&tj True î»Vaj « tjtotjji 
JU aS « jjjîjlj j»fjjj jjJJ 4j££ fjjSjjjS jja JJ jfjJ.j jj « True 4 j 4Sj 

. . ûjjJf JUbû Aj tjt Ent er 

JJl^ 45 j Textl (^jljub j4ji^ ûUlSLfJ Ij ^4S4fbjUJ 4J j44 I iiiul 

: JLwjjj IJ Keypress i£jlu4J f$fjl_$£ ^fjjS ,»4J jLulu txtUserArea 
Private Sub txtUserArea_KeyPress (KeyAscii As 

( Integer 

If keyAscii=vbkey Return Then 
KeyAscii=0 
End if 
End sub 

iMjiuj jj«U > « IJjSAltw^j jjljjLj alû 4J _j F 5 jLS tjiM 4S4«Ljj4J I7mjl 
IJfjjS j»4J « tjtotjji jjJJ Uu^Lj jûUfJ « fjSulJ Enter jLub AuijxJ 
uPjj Ij4j « fjlûlJ jU Enter ^<uSjJ UfjjJ 4S « jJjifJlJ Ascii ûLuLS 
jfjy^Sjl^ Jj ÛJ jp^Sf JlJ Ascii tf<uS$J JiûLS « ( j.ûw i JÛÛJf J keyAscii 
3 j4ui 4j JjLuSJu jfSAf-jj ASj^- « ûLSLj jJ.ûbjJÛ « iJLiuu^j 
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Pr ivate S uto F o rrti Load ( ) ' 

f* W, Me . Capt ion = "Key Spy" . p Ir- idOiclj ,*iL» jlj 
■ Create an API — titner ^ 

Ij. SetTimer He . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

E nd Suto — — 2 — 

^jJAjSjUAa ddtXliJ 4S <Uy<W<Û * wwJljlS<ÛIJ AS <Ul^ J^ Jj bjj 

. . Enter 


: Jj^aS >J ûjju ^jjjjS ) jj^aS (^uJ jj Ascii ^iLSjjjJj yjjjjS 
JjjJlS jj CÛjJj^Su ÛJ£U ^jûu lj<uljj<u ÛJjJÛAJJJ . WUJJJ ÛuJ^ju jb- ûJÛJÛ<U 
<U ilwjjj Ij Keypress jjb JÛ JjjS f>dj Lu wû . SlfJtJ JLj LAJÛ jb 

*. UlLuu^j ^jljjb 

Privat sub txtuserarea_keypress (...) 

Dim char 

Char=chr (keyAscii) 
keyAscii=Asc (ucase (char) ) 

End sub 

^Juj <U jûujj j <L< j j j wJjjAu^ jj<w- LL uwjj jljl>4b AJ j jLSjj A aJ 4S<Ubj <U 
jJb jij ÛUjSjIj shif t jbCapslock ^jLSjuSjJ jAS^j _$ ulw^JJJ Jj^dS 

. . ûiw^jjJ jj^aS ^IjU <U 

wLujU jb bûjjjj jj jl I jjSl J JLu ^Jjûuu ^jjjjS jj ÛÛJjLSJJ Chr ( ) IJJjûi 

Char=chr (keyAscii) 

^jj jAS<Û <Û4ib 4J .. CûjjSj JjjS ^ib jj jjjjj j<Û ûlJJjÛ$<b iJJjjd 

. .ûûjSûl ûJiJjl^ ^JUJ^iû fkJj IJcase 

Ucase ( "a" ) 

<U jAA jS Ucase ( "A" ) Jjjkw jbJb <U ûiwjjjJ Jj^aS A <^mJ <U j 4A lj<Û 

. . ûiw^jjJ Jjj<lS ^lu 


//^iuiû 


l£4jljAftju jÛ($JJJ ûimjjj djiJfcJ ^UJ <U Lçi<U LJlj J^JU ^UJ ^juwjj jj 
Lcase ( ) <ûISjj <S . ûbu^jjlS<U ( Uppercase ) riûl_j Ucase ( ) 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an APX — t imer 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi (jUjli 

, cLuudj 



Shif t jb Capslock a jLS4«£jJ j4^4j 4 jIj * LowerCase 4 jIj 

. .ulwjij ti djJU JLu 4J LçjAJ jdJ ÛJjJjli 
Al jLS tjtjAui JJJijljALuiti jji « ^JijAc jb tfijfS <jiuijj ÛAuuû Ai 
text i^jljjb AJ CluijJj tjtjlfj- i£ttj& ptjjt&A) AijA) jj » ûLSb AStjljujj 

: li keypress jjb A! jli 

Dim char 

Char=chr (keyAscii) 

Print Ucase ( Aj J ûjjja" ) 

ddj"duJ4,J J)j'jA& 4Jlj « IjljMjj J A) jLSA^jJ ^jj jÊli ijJLS A3 jAuJH 

iujjSmJ (jûAitjlûi pA)jd&A) , ûIjjj jLubU Sjj’ 

Print Lcase ( "dLuJA) JtjjAÎ" ) 

. . ûliti yjlujj AtjjAA jA) 
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»> !@#$% A &*()_+I 




Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Create an APX — t-imer 
SetTimer He . hwnd, O , 
End SviJd 


1_/Uc jdgidi (jUjli 

, cLuudj Jd 




Cancel (JjAjju 

. . jAw S E s c ^AaS^J JÛJujG AjAoaui ?<U jjjb 
^jJÛbASlj 3 S$J ^SbWjjî jj ASJ Jbj Command jbjAS (^Sjjljwb <û^b jj 

: ^jjjj ^ASJjbjAJ (jÛImJ-Ij jb yjGjS 

Private sub commandl_click ( ) 

End 

End sub 

j jjjjujjb True j Cancel ( jjj<UJ<WLj ) ^jJbuu jAui djjju iJbljJ 4J 
0 j<U jûujJ « Jjiulj JjjuuS jJb Esc SAtZji L > tû i jLS ajAst J J,S<ubj<U 
. . uGjjI: 4S<Wbj<U Commandl jJuJJ jjjSSolS 


: JjjuuS jjjb<uS^J jAwAJ jjjSJ<U umjJ 3 jjjSlJ jjjLSjjb j<U<U bAj<ubj <U 


jjb 3 JSj Sjj (jSywjjfl jAiuAI UidSbjJ jjjxiS ^LSjjb <U jubj ^■ubuJÎjö $j 


: <L< jjj jjjS /uû 3Jjjjb<U keyDown 


If keycode=120 

Then 

Aryan=inputbox 

"A^jh CLi a£ ojU" ? "(jJJ jjU. ) 

Print Aryan 


End if 


If keycode=121 

then 

Aryan=inputbox 

JJ L " \ A^ A\\jw\ff \ ^ ^ 

Print Aryan 


End if 



: AujÛJ JjjS fkAj ^JjjjxJAA KeyUP jljb jLwL 

If keycode=123 

Then 

Print"Aryan" 


End if 
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ate Svito F 
. Caption 
Creatc an 
etTimer M 
Suto 


orm Load ( ) 
= "Ke v Spy 
AP I — t Ixner 
e . hund, O, 


1_/Uc jdgidl Jljjlj 
, dLuiicb Jd 



jbF 9 jLub » 4S4jbj4J $j jjijljf 5 ^<uS^J Lut Jû 

u4£jjb ÛuÛjj uÛj j UL)b J,S<Uj<U Ji bllwS oj jyLujJ « jjijl J F 1 0 

jjiujj t JSj Ok ^SuiS ^JLwjÛJ uUjb iJjjit « Jlwjjj uaS<UjJ,4jJ jb Jbjjj 
jASdj p'J Jj « uIjjj ^jLûuj jb uLSjj uLj Jfb ^4j dSdjj^j jUuAJ 
jUJJ « uUjSjJJAA F 1 2 j4u4J uuJJ &Slb ( uljLjjj UijjlJjj ) ÛJjSjli F 1 2 

"Aryan"" ûuu$jjj fljjAjAuiAJ <ÛL S j<U 

Q ^iOjxj 

-ari»an3dmax@yahoo. com 



<Ûb<U « 4J44 123jl21j 12 0 ^jjlSjjbj uJjJU JSjJjS a rb j4u jJ&Jj 
i jjbjjujj 4 jIj 4S <U f 9 , f 1 0 , f 1 2 J <U u<UjIu ^JjS 

(Ij 4J) F9 »i<uSjJ <U uuûLuS<U ÛJjjSjJlJ ^<U<uSjJ jJjjiSjj 

jijSirli (jSluSfJ =Aryan 
Ary an ^i-jj jJj ^jluLu jb JSLuj b- 
JSJ&jJa ^jGjS 

jSjjJS < jJjSli-lJ u S,u»SjJ JU <ULuS<U £4S4êy) jASjjb Aryan iJJjûi 
4i jLwb " jujj JiAuSjJ jdj Jjj& bpUlJ ^jLSJuJj 4i" ijij ^jJjb &*SjJ 
4S » iSij-jj jjjlJûLbu ^j ÛÛJjLSjU <UUj<Û j»4j » Print 4jb£u$j J^JjJj 

. . ÛJjujÛJJ QjjjiiblJ &uSjJ 4i 
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Pr ivate Sub Foriti Load ( ) 

= . Caption == "Key Spy rl 
■ Creat-e an API — txmer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi Jljjlj 
, dLuUdJ Jd 


iOUuUy^j <U , Jjuû ^jlû^L^J jAuAJ LUMdl (5jb Al 

( IjAj ) F 1 2 Aj ûjj jLw£<LJ aSa jA$dj 
"Aryan" jJu ^iLuU 
.. ÛLSj: oly Aryan ijAj uJjSLlIAA F12jAuA! lumHjAÊAj IMjjlI 
iJul& jji jij <Ul jj j&iu print a iUj<Û ^ljJ ijajiSti iS ^tjia jA) 
,»V<u , tjijuJt aS altti jULu tj Lj jaj L^j<û ij<U " " tjJLLLLLuLiJa ^Sjm 
JLwû A) ÛÛJ<>: IjAt ûuJlA ûUjlj jp^Aiwlj b Print Jlji AtjAÊAJ 
Aj<U ij&pjj jbjlû IJJjui print Aryan juljJ <LS Ajjm jj , ûLljilJ^J 
. aJjMijûti IJjijSlrli (fUiSji A! tS ^<WLû Aj jAi <ÛLuS<U <(S 


l+_)(*& A %$#@!«< 142 
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Pr i-v 

IL." 

lJT./ 


Pr ivate Sub Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP X — timer 
etTimer He . hund, O , 

S uto 


1_/Uc jdgidi Jljjlj 

, cLuudj 




cr^-' ifJ tlr- J-> cr- f 

^ «u»j> 4^UL> d <i/ jLfo^ojLt 

J y J 4. C * «! i J, J'v.i 
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ate Svito F 
. Caption 
Create an 
etTimer M 
Sub 


orm Load ( ) 
= "Key Spy' 
AP I-tJ imer 
e . hvjnd, O, 


Ljdc jdgiiiryiJj 
, <- 1 1 > 4 -> 




Visual Basic 

r\ 





i\wUi jdi-öjUL 

4<U4*Uj<U 


01 1000101 1 1011000000101001 

111000101011011011101 
00000 100011001 000 1 000 
100011000100010000 
110000111000101010101 
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^JÛjjj ^ jU « dJli&l Jj jlSd i uM T jljjj^ 

Jj i jLSjjLS ^jlJULu <û ^ jLS<ÛL«jA3 ^lLuAum^J lJÛLS<Ulûj<U 


. . _j_jj <U<Û-JJ jLûLSJÛuuJV j JÛIÛuhJ j<Û ^ijjSLyjjJ ^Jytûj^ JjJjl^- 
Tools cr u a . J j jLS<LuihJ ^ÛJ jJy j 4w Jjj^îtJ UlSuJ4J jj^juj ^<Ulûj<U 4J 4JjJ 
^jLS^tSjJ j<),Lylj jb aSj MenuEditor jJLyJj u4j ^SulS IJUj<U _j j^jjASj 
.. MenuEditor ^uSjj i£jj4il^S^J JjSjIj Ctr 1+E 


File Edit View Project Format Debug Run Query Diagram Tools Add-Ins Window Help 

\ Add Procedure... 

Procedure Attributes... 


www.arianz. cjb.net 


Ctrl+E 




II 


Options... 


^j^SjLj j4u4J u4£ ijSdS » jjjjuî ^jlS^LyJjdS ^JjJy j<Ly<U ^jljJJJ jU 

. . ûj45j MenuEditor 


13. i 

S 

X tfe © #4 | 

kT) C* 

► II ■ | 


menuEditor 


. .J5<U_jjSjj JjJjl^ ^JûJLûj j»JÛ ûJj^ ^SuuSjj jLLujJ 
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Pr ivate Suto Foriti Load ( ) 
r- 'w He.Caption = "Key Spy ' 1 
' ■ an AP I — timer 

SetTimer He . hKmd, O , 
Snd Suto 


/Enc 


Lfdc Jdgidi 

, dLuu4j Jd 



<y 



jVjLjjAi 

.if^S 


HelpContextTD: | C 
I - Chscked P Ensbled 


NepotietePositior: |s - Mitfdle + 
P Visibte I - WtedowList 







;.Li*teVjAÎ 



jjLJ 


.‘LipjJ 


J 


v * 

i ijuljjjLw jLSALuJ liMjdilj Lj jjjl^jj j j^<ud,dLjjA»' (5j)A jj 

^Jj 3 tjtjiSj tfjj (ySdJtjjjj tjLS j>dj }j . . . jiuişjtt jj (jiifi riLSaSji jLteb JJ 


i aSj <u Gajaw 

♦ W ♦ ♦ H 


jb^ 

j.û<uj<ujLj 

jl>«b 

f rmcolors 

Name 

Forml 

JLj o j (j *Uslj j 4j 

Caption 


True 

Right to left 


White 

Backcolor 



: jlS 4Su«j ^ A«b) <U }j uuul (jjijSlujji 
MenuEditor b Tools JjuuS <J j jLSHlubJ jAu tj&tJ 

: jj tjtjJduAl LuuU * tjtji&J 
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Pr ivate Sub Forni Load ( ) ^ 

f"* Me.Captiorx = "Key Spy" p Ir- idOJclj ,*tll jlj 

■ Create an API-timer ^ -JjjS y & 

,^r SetTimer I-Ie . hwnd, 0 , 1 , dLuU«b Jd flj-iS 

t^jUlJ^ tf jLSAu4J 3 jLSjLutbJ £$U <U JûJUjG iCaption -1 

t^Jj^S Jj jÛI^JJJ « uûgd&tSjti bAS4Uljj<U Ai jU<UAj 4S « jUjJ jl (7ij IjU 

. jUtfjJbU 

dj jUAtAJ AS jLSJiuntV jU jjiLS^ wJj jU jLSj i t 4 UU 3 U t Name -2 
. ÛJ3<LSjJjJJ I JÛLSjJjS ^ûuy^j ^JjAşsi <U <U L<Û<U « ûjjdSUjJJ QjjU 
<U<UÛ jlu<U<U « jLSUUjA'a ^jlJUUU 4j 3 J JL 4 S 3 J ^jUlJ : Shortcut -3 
. jAA IJJiSJLuuJ Jj jS jjAjUUjJj 3 <U U^UAaS^J JÛ4j^ ^IJUJ Jj 
3 aj j»jjjdj<U (ûuiilj) ^JjLÛû ^jUlJ jU ^JjSSVU 3 J : Checked -4 

. jJ^SjJ jLlujjJ IjjSJlUuJ AJ aS û<ûUUj<Û 
. ^jluû-jLS Jj jU ^JLSjUjj 3 <UMbJ ^jjjSljLS : Enabled -5 
. <!S<UUjJb ^jjjSjLS (PIS <U jLS4luut 3 jUjAS ^L uLuaj Visible -6 
jJlu 4Û£JJ ULuLS t$Atj& <U « JlUuJV ^JjSlujjJ : Windowslist -7 
JÛljj- ^jUjU J.S jA4 « JjljS (jlrijjmr I Jj Jlu 4 J jUAJAJUu jSjj dS jJjUUjAJ 3 <Û 

. LlUJJ ASUUj <Û jJ,uS<U « j4u 

<U UlUUjji jU djuuLJ ^JjSSujjj jU jj ^SiiUjA’a j<Uu 3 J : Next 

. J^ljiuujjj dS (3 UUUj<b 3 uuuJ 3 <û ^I^j 
. ^iLSAwjJ 3 ÛulJ ^J3<LUju u : Delete 
<U ûlûUjJj jU jJ.LLu.J <U ^jjjjS 3 |JG4j ^iJjSiujjJjJ s Insert 

jlSJÛuljU 

^juuljU 4S « jLSAiUjJÛ 3 1 im^t 3 U 4J jJjS<J 3 ? 4J <U<UjLj AiUSjl 
« jJjjl^ ^jUj4Î Uu^JJ J 3 Jj Ij j- ûUUljU 3 jJ3j4u ^jjUjAS JLu£JJ J^JjAu 
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Pr ivate Sub Forni Load ( ) ^ 

f"* Me.Captiorx = "Key Spy" p Ir- idOJclj ,*tll jlj 

■ Create API-timer J 1 y & 

l v SetTimer He . hund, O, 1, dLuU«b Jd flj-iS 

/dT End Sub — * — 

j ÖLu. uaJV jb i'lVîiiuT <j)LS4w4J (jlJjSöwjjJ ^jjA ûalj ;jV (j4Öwljb 

. Jjöjlj^fcU AJ J<Lf ^4Öwljb 

jlaSaSJj « jLS4Sujj ^AjLjjAj jj T JlxLt ^jjjSuwjjJ jAa JÖUJ LöuaJ 
i£jb ^jjjSöwjjJ jj Jjjj « j»jji ^jjbJÖ jbjij ^jJj j «ijjj ^öuwd 4 j jJASjJ 
jLub ( lSöjj ) AajaJ j Caption ÛuÖu4,j ^jLwjJ jAu jjj*j ^4 S<Lj ^moT 
Lyj4J Aj4j « (menucolors) AwjoJ lJ Name ^JLwjJ <U jjûjlji- Jjj*J 
ASj Next jAaAJ j4' ^ödS tf jLS4wJJ (jijjSöwjjJ jJ Loooj « JJ4S*U.«aJ (jjb 
Jj jjSjjb jjj^öwlj IJJjÖJ j4^4j lauöj « ûjgjaajjj jJ ^SajbjAS (jjj4j 'jJ 
^öûljb jAuAT jA? ^SÖlS ûaJJJ 4JjJ « ûaJJJ ûuijjJ jJ ^jSÖÖwuT IjAj ûauijaJ 
Jjj*J UUljJAJ Luaj « ûaJJJ ûuijjJ JjAJ ^Lijlj^ jjjaJJJ « ÛJ4Sj — «. ûuilj 
^jLwjJ <U j (-^j ûj ijl jJ <A )4uijaJ Caption ûuuûAJ ^jLwsj j4ui 
<U jJ ^SoiUjAS ^jjjSöwjjJ jJ lûuaj « CHoosecolor JLuijaJ |J Name 
^jLwjJ j4ui jj^*J jLuib / ASJ Next jJLuiAJ u4£ ^SÖlS JjbjJ « l uû wuU jbAA 
« menuExit JLuijoJ |J Name ^jLwjJ 41 j ( 4wjoJj Caption 

^jjjj jj Löwuj « jjjjL^Su) jbjAS jji 4T AS jjjjjiouijjj jUSaöwuU jjöjlu 
JLJjJU « jJJlSuauijjJ (-^j o J cr^. ijl jö ) ^ibjJia >J jJ a S4j4ÖwaJV 

j4w4J u4' ^SalS jLub « AÖJ UIVL^( jÖuiöb) ^jbjAS IJ4S4aSjJ ijJjJjlj^ 
tffj-j. jl jö 4* ) a ibj4Ö jjJjAA jljöiJU dJLyLwjJ ^jjJLj jj « J.Sj insert 
(jjaaljb j4w4J u4£ (jSalS jU ^ySUjb- I JJjÖJ « ûojaöwjjJ ( jöuiöl J ) ^ ( Jb s j 
UUljJ 4J Ltöu « ûau ûwjjJ UljAJ yîfb- ûw4A ^JjJU jJ « 4Su — ► ûuilj 

4uijÖJ |J Name ^jLwjJ 4) j (jjw ) 4wjÖJ j Caption ^jLwjJ j4w JjjJU 
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FN Pr ivate S uto Footi Load ( ) 
f* -w Me . Capt ion = "Key Spy" p lc- idOicti ,*tLi jlj 
■ Creatc an API-titner W ^ 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

^jTe nd S uto ** ■ *— ** - 


j<Uy Jj^ju 3 4 Sj insert jAwiJ y 4 £ ^SLdS L > ll) ChooseRed 
Choosewhite AwjJj b Name ) ^jLw^j <U 3 ( ) Awjjj^ Caption 
Caption ^jLujJ jAu jj^aj 3 dij insert j^uAJ ydç ^SolS jjb$J 3 
u LyJ tjjj □ ChooseBlack ilwjjj b Name ^jLwjJ <U 3 ( jj«j )Auijjjj 
ij£AJ JjjŞJ » jjdSj UMjjJ jJ ^SlLLulJ jijAÎ 3 J LluuU « JjjJjS J jU&Jj 
jLSU d5j ( (j u m 'L Ij ) jAwdJ y 4;' jy SolS I jjU<ÛL«j J.3 Jj 3 d£du£jJ i£tjtj\j& 
« Jij 4 — uA^ ^ALuyljlj jAu 4 J jljSuSoIS L%U < dSj Next jduAJ uJj^ ^SLdS 
j<Uy Jj^fcJ LuuJ ... Jj ^SlUjlU JuUj 3 ûyLOJjj L L Û. U <U JU- ^JjJJ jJ 

... ( û jW < 3 ) Aujlt j Caption ^jÛu 
JJjIÛjJJ JjjJÛJj ^ijtjjjSSjM j jijSijjtS 4J jj J.S j: ÛJUJG jb <UytuJ 3 <Û 
jt LxLû « Menusize Awjjj 3 Name ^Lu j<Ly tjjttJ jLwL « jLSdSjJj 
*'»t*ylj J4u<y!jb Ubû « ASj Next jAuAi u4ç ^SLdS ^jLSdwdJ ^iJjûityjjJ 
ijjLujJ AJj( °J « ) AujJLij Caption ^jLu^J jJu tjjtçJj 4Sj LLdS 
jjLji'j (jLllU jj jJ ^So ibj<Û ^j jjSûujj j jj « s i z e Sma 1 1 Juyjjj I JN ame 
3 Caption ^jUyoJ j4u tjjJtt j <Sj Next jJuyJU y4ç ^SLdS Jjb^J « 
3 sizeLarge Ju^jj lj Name ûuojdJ ^jLwjJ JJ j ( û-l£ 0 JJ <^) Atyjjj 

. . 4Sj Ok j4<y<U uAtç (jSLdS 
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ate Suto 
. Caption 
Create a 
etTimer 
Suto 


F 

M 


orm Load ( ) 
= "Key Spy 
AP I — t iitietr 
e . hund, O, 


l_pir= jdgjcy 



j4j u 

di 1 4i >4 j 



• iStyj&û jjjjA&iaû jLSdiuaJ LLulJ 


^ldxj 


J£j c. j 


0_o 

4jj «<jS 


u» 

<^j~o 


< _& * J ^Ojl jj 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — t-imer 
etTimer He . hwnd, O , 

E nd Suto 


l_pic jdgidj (jUjU 

. . ' I . . ■ 1 4—1 



• jLS^Sioj £ &A Ûj Ai Jj JLSjJ^S ^IJLU 

: Am j Jj IJJS<Wj$i ^ImS jjjjjbASlj Al tjtj \jS- i£tij£ pij iJijAu 

Option Explicit 

tjtj ^tijS jAÎ S Load SjL Al jJSj f>jj& jAuiAl dUiShti jLwb 


* 


: AuijJa 


Private sub form_load() 
Choosewhite . Enabled=False 
Sizesmall . enabled=False 
End sub 


(jun u&tj jJ AS AttjLi jij Choosewhite ÛJtli iStijS jAui jAÊAt 

. . j^LublJ 


dVL^b = ^AJb- . ççm Jjtj 

Ai * ÛUJJJ IJUj^Î JijAiijS i^jLS <U jJluSJU JÛjjb- jAi IJJjÛJ 

4J <U4S<ûUj43 ^SVL+b jb ^SVb « Enabled 4J ûuJUJU .. Ij4S4LuJ 
, JjblJ (dVbtj) 4J jb JA$A?jj IjjjÛJ , 4S<Ubj4J ^jjjSÇuLu (jJlS 
jbip- 4S , 4jJj4jjjSS^%J ^jbjJÛ £$b sizesmall tjjJii jbJbJJ 
ûu4S4«bj <û , jlSJmiid SjJAu LluuJ « jjjjjS jbSVbLj IJLuJjÛJ « jjLublJ 

. . uJjASjJjJJ 'jj 

»jL Ai jSj 

/ Ç ^ 

t 
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Pr ivate Sub Form Load ( ) 

He . Caption = "Key Spy " 
an AP I — timer 
SetTimer He . hwnd, O , 1 

S uto 


l_p_lc jdgjcti 

diuxU 




j ijijdZj uA? ^dS^uuSjjjj. «jS t IjjL SiijS (jjuuijj JijAfû <U 41 

. .Jiij Jjij 4} jJiJJ JiJijS jijJJ , djj>J44 ChooseBlack 


f* Projectl - FRMCOLORS (Code) 


chooseblack 
"1(General) 


▼ Click 


chooseblack 

Choosecolor 

choosered 

choosewhite 

Form 

menucolors 


menuexit 

menusize 

sizelarge 

sizesmall 

U, K a “ . . i d 


c no o s e r e a . £. n,ar:i i e a = raise 

chooseblack. Enabled = True 
choosewhite . Enabled = True 
End Sufo 


k() 

k 


0 


s chooseBlack / Jhij ^ijjJ ijS 

Private sub chooseBlack_click ( ) 

Frmcolor . backcolor=vbBlack 
chooseBlack . Enabled=False 
chooseRed=Enabled=True 
choosewhite . Enabled . True 
End sub 


s Choosewhite / & uu ^JijjJ iiS 

Private sub choosewhite_click ( ) 

Frmcolor . backcolor=vbwhite 
choosewhite . Enabled . False 
chooseBlack . Enabled=True 
chooseRed=Enabled=True 


End sub 
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P r ivat e 


Suto F o rm Load ( ) 




- Caption = "Key Spy " 
Create an AP I — txmer 
etTimer He . hwnd, O , 
End Suto 


l_pic jdgidj (jUjU 

r . ' I . . ■ 1 4—1 



: ChooseRed / jjjm (ySjtjjj ijS 

Private sub chooseRed_click ( ) 

Frmcolor . backcolor=vbBlack 
chooseRed=Enabled=False 
chooseBlack . Enabled=True 
choosewhite . Enabled . True 
End sub 


: OjASj jlStijS 


/Juj iJjijjJ - 1 

jAJ jAm 4i tlLiS Aajj . Click jijSSjŞS £)b djjjti I itjjJ 


^jU^ugjj j ÛJdSti 
Jhij (jSjtJ AJ JÛLuS4J tStJjşj JtjA 7 ifij fjSj tj 
d^Ujb Aj AjLwSdJ Jhtj tjSj tj 
dVb' Aj ajLuSjj j$$m uSjtj ujLtjjj 
dVLf^ Aj AjLuSJj jxu (jSjtj jjitjJj 
Ijjj 4 ChooseBlack 4 jIj jj iSti JjLtjJj $tj jAmJ.2 SLdS SLulS JjIjJS 


. . jJtJ dVb’ jj jiSiSjtj jjj ^jUjAS |»V<u . ûltti dVb’b jjJ- jAlSA) 



. AJtJMh jUAAA) jJA jhJjjjuj (jju uSjijjJ 
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Pr ivate Suto Foriti Load ( ) 

'W. Me . Caption = "Key Spy" ifllc 
■ Create an API — timer 
SetTimer He . hund, 0 , 1 , 

L^TEnci Suto 

^jjAjû <u 4J « jtwjjj $»$a»»jS»j$»& J»[S»»$S s»$<û jj LLuj 

) <ui^ »$ttjijS&$sjj Sî’û IJU ^SAwSjjjjjjS <U 3 IJjLSjjjS 

: Awjjj jjjjI^- ipjjS ?>Aj j»jJ jjJAA ( s i z e sma 1 1 

Ptivate sub sizesmall__click ( ) 

Frmcolors . windowstate=vbnormal 
Sizesmall . Enabled=False 
sizeLarge . Enabled=True 
End sub 

i»A j 3 lj4S<UtSjjjx«jS Jj »jJjj}JA Sizelarge « j^JjJjSjj^aS J) jLwLj 

: Aujjj »j»j\jS &»»$& 

Ptivate sub sizeLarge_click ( ) 

Frmcolors . windowstate=vbmaximized 
sizeLarge . Enabled=False 
Sizesmall . Enabled=True 
End sub 

ujj ^jLwb iSijjJjjj ^jjbJU AjI^ vbnormal juJjJ ulLjLS Ijjj»J 

i»Va J . ujJ «iJ «(L? Lj jjS ^S Uj jtdj J jLwL' tjAu Aj 4J| mSjJ 4& 

. . ujJ dVb' jJ ^ 3 <U 

jS « ulj jj^aS jjJjJj &jb <£!j vbmaximized jui$jjj dÇuLS LAjjjAA 

Jjbj mJ dSwUjJ » jûw AJ AjLuSjJ iJJ&Jj’jj 3<U4S<LuLu vijJ^ljJ jwJjAj 

windowstate u J4Ûuu JjJJjm 3 jLS<LJJj<UJ <L jG ^jjJju <u jJlw jjjju 

... 4Sj 

JLJjdjdS « (End) Awjjj menuExit <Ul 3 (jrUt^lJ) ^jbjJÎ jj lîmVl 

. ajaSajUjJiJ ^jLjjS yj JjbASlj 
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JdgJdl Lij lj 

dLuU<b 


Private Suto Form Load ( ) 

= . Caption = "Key Spy " 
1 Create an API — t imer 
SetTimer He . hwnd, O , 
Encl SulD 


1 _/Uc jdgidl Jljjlj 

, cLuudj Jd 





jLS<U IJL)L2 <uL)j<U 4J» lylJUbtu <u ^j AtSj) ^UlJ jljjj J j 

Jj<U<uSjJ JjJu* ji<Uu J ITiinI < <ÛLSjjUjS £0j4jij£jj$S jJ JLAaAj « UjjÛlAjJ 
JtjJjU AJ Jj JJ . lj£ jUUu^j J I Jj Iiin j jSJxuoJ Jj jS j<ÛL)Ljj<Û ^Jj jJJJJJ 
uJuj<U ^4S4 uuS^J$jw$S jJlw ijjM IJJjJJ j ijajJSj MenuEditor 
<U , <UlJjJ ^jjjxiS ^jLSA^J ^Jjjjj jçilujj » »j»jJSjJ j Chortcut 


uJju^jjJ J^AS^UjAfl i~u-U<U Jj JJiSjjjiii jJJ jLj JSJJjAA ^JjIj^JJ 

|(None) 


Ihortcut: 
Negotiatel 
|û Visible 


Ctrl+A 
Ctrl+B 
Ctrl+C 
Ctrl+D 
Ins^Ctrl+E 
Ctrl+F 
Ctrl+G 
Ctrl+H 
Ctrl+I 
Ctrl+J 
Ctrl+K 


£A£Au£j)jmj£ Jj jLSlu » (JLij) ijjAJ JJ » jjjjuiJA j^jiUjjjî ^ ÛIjS Jj 
^-j<U<ulj jrLÛJjJ » ( Ctrl+B UjijuJAA JjUSjJ ,»<U U Chortcut uUûAJ 


. . uJ jJ,Sj JjJ J IJLluJj ^jUjlÛ u«uû<U J.J 

_Sj öj 

"“.îi öj o_ûi 

aanoMHi 

J9-^ 

"" I j 

6jb a.9 
""69 

• ' ’ ' UJ>5 6J9 <»5 



l+_)(*& A %$#@!«< 155 »> !@#$% A &*()_+I 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy r ' 
Create an AP I — txmer 
etTimer He . hwnd, O , 

S uto 


_JfEnca 


l_pic jdgidj (jljjU 
, dLuUdJ Jd 



fcjuJdii Ctrl+B ^LSiWSjJ dS<W IjjAJ Lun Jû 

j4uAJ LidSj jLSdLuJ j4u (jjjdj ^J.ÛJJJ dSdjUjjj 

. ûj iSj aSajUj 


: IdSuluuJ ^jUjia jj J jljjj <U ^jLwjJ ^jjj^Jbj* 
^SwLUj <Ly AjLSjJ ûJJVjj » separator Bar ^jLwjJ ^Lw jljjjJj 
dLujJ JLijiJ i ûLSjJUujjJ iJLSuluuJ ^ÛUjJÎ jjJ jljuj JJ ^jLwjJ j ^Jjwb 
j*j jjj-» d5j JjJjlji- JLu j<û ^jJiw djjuJ jj t jlSdûubJ jj iUjjjLSjljj- 

. . JUJJJ wwjjJ Jiu 


HHHBEE 

^JnJxJ 

»jL Ls JSJ 


^ j£j 0 J Jjv 


ipliuX^I 0 


^jUjd’a jLÎU jjjjdSj MenuEditor ^Jjdaj Jj JiU jij ^jjjSuujjJ jj 
^jjAjjj ASj insert jJwdJ - r Aç ^SuiS L%iu» aSj dVL^ (jtw^lj) 
j Caption ûuujdJ ^jLwjj jdu JjjaJ iJJljJ <U * ûixJ ûujjJ J<UjLw&j 
jLwb menuspase<iijuJjJ u iuJ ^Sjjb L%ÛJ . 4 wjÛJ (-) ^SdJdjLwuj 
. . ûÛjjj ûwjjj dLu jdj jniujJ . dSj ASdiwuJ (jjjJu j aSj ok ^SuiS 
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P r ivat i 


Suto Form 




Load ( ) 

. Caption = "Key Spy " 
Create an AP X — t imer 
etTimer He . hwnd, O , 

S uto 


1_/Uc jdgidi Jljjlj 
* cLuudj 




: Checkmarks jJjiiSVL;;' jtûLLû ^iljlj 
jMJ jAJAJ jj^J dVl^ jJjLiû , WLUJJ ûuJ£U b<Ulj)AJ Jjjjj.4 AJ 

, Jio ^<u<Lii$ ,»<L Luwj, uJj-Lb iJiuLuj jLj ^jLSAiUjjfl 



// ChooseBlack: JjJj yiujjljj - 1 

chooseBlack . checked=True 
chooseRed=checked=False 
choosewhite . ckecked=False 


// choosewhite : ^Jj^J — 2 

choosewhite . ckecked=True 
chooseBlack . checked=False 
chooseRed=checked=False 
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Jk 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — txmer 
etTimer He . hwnd, O , 
ncl S uto 


. fl »l 

Ljllc jdgjdi jujU 
, cLuudj Jd 



// chooseRed : jjju ~ 3 

chooseRed=checked=True 
choosewhite . ckecked=False 
chooseBlack . checked=False 



Jbj jJ ^iUjjj djlj ASdluul <£$& 4IÖJ tS jJjJjdJh U 4J<Uljj<U LLtö j 

« ûjjSa i£iAt IJjLSJjUjJj t,} Jfiijij t tjijJjij m n t ^jUjJj ^ ûjjSj 

JLuuJjJumJJ J&JjJj&j tjtjljj- £te&J i uJJti Jbj jJ (jjbjjj djJjAA £$.? tS 

■ ■ JSj tS t jjj £jjtuud t jljjS 



4 jrÛJi ijSÛ J jUjJj jj*y <U IjIj.jAm <U » tjJÛJJSj ( j ' jtStj 
. . 4i7m»b ^ jUjJÎ ijtjAÛJju j jUj43 ijS Jbj Jjjljtj 
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ext e Suto 
. Capt ion 
Create a 
etTimer 
Suto 


F 

M 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


ljlLc jdgidj (jUjU 

r . ' I . . ■ 1 4_1 



» ASiluul i£l_$j jûujjj « uj45o jUj4Î t^jjjSjbj j<lw<U UIwlS jAS<û 

42<CLwJ 4jI^aS * J 33 J Jbj jj ^SoiUj^i 4 ajijJiSj aSaIuoI jjb^J jASaj 

. . ûiAUjAwAJ ^jljjS 



<jJ<Ub ( j S^jJLua 4 ÛJ d Şj jG<Lub <ûbj<û Jj ÛUS JJ jAw^ JidS jdSdJ 

. -tjijJjSt J yjdjbdSlj 



: jjjjjjl J <U<Ulûj<U jdj j^4S<U<U 4 b 4 17mVi 

. dS<Ujjj jj ASj ^pAjjs' jjjjl^- ^GGdiun j*di ^jjJSj LjSdJJjijJ Gjj<Uj 


jbi^ 

^JÛAaJ JluG 

jl>»Û 

f rmGrow 

Name 

Forml 

jl JjS ^iiuUJ ^5 'Uab j <J 

Caption 


True 

Right to left 


White 

Backcolor 



b Tools jjIiuoJjJ itjtjiSj CluuJ ^JJjSZjjjJ iJtjdMJj jLwl.. 


. . menuEditor 
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Pr ivate Sub Form Load ( ) 

Me . Caption = "Key Spy" ifllc 
■ CceaCe an API — timer 
/^r SetTimer He . hvnd, 0 , 1 , 

! J^nd Sub 

Name uJûjjAj ^jLLsj 3 ( j' jj^) j$b <U » 4So ûwjjJ djL u aJ UU 3 AJ Lun j û 
, a jLS4jUjA3 jb ^jjjSuwjjJ 3 J jLww » ChangeList 4 j 45j 

«45j ÛUiS -û*Ij jV ^JÛLuuj L%lû 3 45j Next j4u4) «j4j ^SUiS 

JbjÛJ 3 Caption ^jLwjj j4u jj^aj jLwb » J 3 JU ^jb-jl^ç ^j^utw^jjjj 
^5LUS LçLj » mnuAdd * Awjjj U Name ^jLwU 4) 3 ( J ^ cP J^&O) 
ci 0 j ^AJJ^ ) Auijjj U Caption ^jLLu 4J 3 45j Next j4w4J u4£ 
Jj 3 *jj 45j JkiS Next jLwb^ mnuRemove 4 j 45j i£4Sjjb 3 ( <j'- a j 43 
4wjjj lJ Name ^jLwjj 4) 3 ( jp^-'-j 4wjJj 3 Caption ^jLwjj j4u 
jjjLÎaJ ^S UL çA ^ 34 j^j 45j Next j4w4l u4? ^wiS JjlJjJ » ( mnuExit ) 
3 ^jjlj ( - iJluJLw ^4jLwjj lJ Caption ^jLwjj 4J 4 jsj » jJ45j ûwjjJ 
3 index ÛÛÛ4J ^jLwjj j4u Jj 3 >u jLwb * mnuitems 4j 45j ^JlSj^b 

4w»3jj j»iw Jjbj 



j4w4j 4U 1S tJ4S4«b)4J 4J biûb « 4 j45<LuLw&J Jjjj4j w w4«4j 

^JJbj (jjA 4ÛJJJ « U ( jljjS) ^ImuJ 4J ÛJ4SJJ ( jbj43 ^jjjSjbj ) 
. . J5454 jjLw3 J 0 U4 jJj 4 U 34 SJJ 3 menuitem 3 J jU ^jûiJj 
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JdgJdJ Lij lj 

dLuU<b 



Jk 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy r ' 
Create an APX — t ixner 
etTimer He . hund, O , 
ncl S uto 


ljiIc jdjidi jbjU 
, cLuudj Jd 



: IJLUbJ <U jlj$S ^AjbjAJ^J jujjj jlSjJ^S b LboJ 

.FrmGrow ^yjb ^ÛS ^jJLfbASlj <U JbjÎJ J$Jjl^ jJJÎjS fuû GjjJLg 

Option Explicit 

Dim gLastElement As integer 

■ ■ ^SjjIjÎjS gLastElement iJJji) 

. . JbjÎJ lJ Form_Load ^JJ AJ Jjjjl^- (pJÎjS ?>AJ Lbub 

Private sub form_Load() 
gLastEiement=0 
mnuRemove . Enabled=False 

( j <9 (J a j 4-ijj" 1 ) ^jjbjJÛ * jiu Jb JbLuSJb ^iSi^jj ^4 Sj$Ij$S IJJjii 

. . ujjjj dVb-b , Jj 

*»♦ Y = M 



(jjbjAS j u<b jV JdS&uSjjjjjjS jAui tjjM IjASjj^S jjjAîb 4 j AJ Lu û b 

: Awjjj Jjjjl^j- jJJ^S |»Aj 3 JjJjuJAA mnuAdd 

Private sub mnuAdd_click ( ) 
gLastElement=gLastElement+l 
Load mnuitems (gLastElement ) 

Mnuitems (gLastElement ) . caption="j^ a j <3"+ _ 

Str (gLastElement ) 

mnuRemove . Enabled=True 
End sub 


: Aujjj jijJ jjJAA mnuRemo ve a ibj<Û jLwb 

Private sub mnuRemove_click ( ) 

Unload mnuitems (gLastElement ) 
gLastElement=gLastElement+l 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create an APX — t imer 
SetTimer He . hwnd, O , 
'End Suto 


1_/Uc jdgidl Jljjlj 

, cLuudj Jd 


if gLastElement=0 then 
mnuRemove . Enabled=False 
End if 
End sub 


: <U$jj fijS jtjjj+ÎAA mnuitems jLub 

Private sub mnuitems_click ( index As integer) 
Dim mymsg As string 
Dim mytitle As string 

Mytitle="'-i^ kJ ,jl jjS (j ‘UU j <j" 

Mymsg="j' J <3" + str ( index) 

Msgbox mymsg, vbokonly+ vbMsgBoxRtlReading+ _ 

vbmsgboxRight , mytitle 

End sub 


: ( <j+uibb ) A3 jJ Aujjj ?>AJ Lut J û 

Private sub mnuExit_click ( ) 

End 

End sub 


jAuAl uA? (ySJdiS j ijijdSJ ( jtjjS ) (j"i mjt jjbjjAAJ <sS<Wbj A) jLww 

(JuA jJj Al jjjJ »1 « »j»jiSj 4S47mdjjbjJ I aL û » ( jSj jUjAS ^jjjSjbj ) 
^jiWLj (jSluSjj &)Aui <U ji jS S jJS 4j <lS .j^jj :bj jiwUjA£ , ijdSbuLw^j 

J5<û jU$£u ,4 j 4£ ^j^Ti ÛHT 4iLy<Wb iwSjj ^4 j jûljjb LbaJ 

. .blJjlJjS j4w4J <UJ<Wb ^&jjjbASlj 
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Private Suto Form Load ( ) — - 

Me . Capt ion = "Key Spy" p lr- idOiclj ,*tLi jlj 
■ Create an API-timer LJ J x 
SetTimer He . hwnd, 0 , 1 , ^ « ( 

'End Suto 




)t^ 

jL54,y4uLj 4L3 jJl1u ( 1 


jûîoî ^ Lu ^O UaSIj ^4jLu$Sj)7flS aSjSaj ^iULj jIjJj^ 

4 lUjSjj IdjL^jjjJLuj ii^Jjjj ^ 4 djjbj^ j^m 4J 

jUu^ULj uuujjUb bji^MbU AJ A& j^ûULjjAJ 

. . 4J4£ ^jjp- JÛ4£ jljj b LLoJ Ûj4iy J 


. . 45<J <UJ<Ub ^jJJuu iJjJAu 1 1 tiM 1 



4J bb" JtjJiJ I 45 » jjjb45lj>j jjJiUb JîjJuLui jJuuJj 454 j 4 j^«J 4«4 J 
, ûj 45 jj Yes j4u4J ÛU15 1 j 4 j ûaj ûjb j 4^4 j « bjjjjj 4 Lçjj 454«bj4J 
,ÛJ45 jJ No j 4 w J j Û U 15 454«b)4J Jj J^JjJJ 4iîJ^4j J j^J 4j jjlj ^J jk^f4J 
3 4tgjjj IjUj^i ^ Load ûjb 4J jjjjl^j- ^jjjS j»4j jjiÛJj&blb jj Lu Uû 

; 45j ^454<bû 4j i£jJ4u 


Private sub form_Load() 

Msgbox" û j 4 _Uj£j 21 j jj" 

End sub 

^J4«b <bJûb4ilj u 5,ç.tt54 j jj-3<U«lj jLS 4Ij4^jj 454«bj4j ûUjLS jjlujj 

. . 4JJ£il 2 j»4J Jj4iuj5j J 
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at e Svito F 
. Capt ion 
Create an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hTjnd, O, 


. .. 

i fiic |dqjcti ^jb^U 

r-H ,f 

i , dLuu<b 

s 



, Projectl jû. ua , <û<uj<ub <uSu ^Lij^b JjJA* Quoj 


$ jjj^SÎj Ûl ifi öjlj j4J 4JjJ » u^jj<W 5jlLbjj ^jjLijjlj JIiAaA j 


: Jjj^Iu fk<U , AS <UJ<Ulj <uS $ j ^jLlj^lj ^Ljb^J aSajLSjj JiJjlji- ^jj$S ,»<û 
M sgbox"JlSAj|j ^lju^j" , , "<LS<uS$J ^jLiûjb" 



GjjJu, a jJUlj J >J jjJSj Jbj No j Yes ^<uSjj ^jj j^r- LLuJ 
<u jjlS 5<û jjl^jjj j^jjl^- ^jjjS ^jlj jLÎb , <lSj jbj jbj<û ^SajjuSjj 


: jjjJUjbj <U JSj <U 

Slct=Msgbox ( "+$ (_£ jl jjoi jj" , 4 , "4£ 4^ jj ^Lioj jU" ) 

If slct=vbyes then 

ÛJjujjjJ Yes (^jbjJÛjj jÛJjiS IjJjiJ 

Elseif slct=vbno Then 

ûjju^jjJ No (jibj 4 i jj jJjj^S IJJjlt 

End if 
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eate Sub F 
. Capt ion 
Creatc an 
etTimer M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


ljiIc jdgidi (jUjLj 
, cLuudj Jd 



j<lw<U UidS jdS^i Lwwbö » dSd>«ljjdJ i£Jjdjjj5Lk£Û JjSj|JF5 j<U^jJ 
j Yes j<u£jj jjj 4S * jjJlUjSjj dSJLuJUlj dJjJLLti ujj,Sj dSdjUjdd j<u^jj 

: uuJlSLlJ Jjjjiu j»Jj aSjjlS jASaj Gwoj » jjjj Jbj jj ^No 

Slct=Msgbox ( <xslj (j jl jjoi jj" , 4 , <x»£ jj ^Liaj jU" ) 

If slct=vbyes then 
End 

Elseif slct=vbno Then 

ûjjujjjj No a ibj<Û jj djJjS IjjjlJ 

End if 

j^Sb » jjJÛJjSjJ jSAljlUû dmSjJ j jJdSjJLu jûu aS Jj bj 4 j ûLub j-LLujj 
No jJllJJ jjjS ûLdS 4 j f&Aj « ÛUji-jJlJ dSdjbjdJ ûudSu Yes j<u<U didS 


: jjjj!j> jjjjj j»<b j»jjljj- <U dSij^ $^jj « ûuji-blJ dSJUbjdJ 

If slct=vbyes then 

jû ^SjJjS ib^ijJ < ( End ) Jblj ^jjjlj jbdSJUbjdJ ^JljjS yjGbdSlj 


. . ûaoi j ÛJ IJJjAi 
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ext e Sub F 
. Capt ion 
Creatc an 
etTimer M 
Sub 


orm Load ( ) 
= "Kev Spy 
AP I — t Ixner 
e . hund, O, 


t* 

Ljlic JdgicU Uj Li 
, cLuudj Jd 



: „J<Lb J jj jLSjjLuoj a ijjSjbj 
: (x ) 4JA4 ^AiUui ^jjjSjbj ( 1 

(jjlJLLftj Jj <U jJAiUûi ^jblJ jj i^Lu^JjLSj jjjjI^ ^jjjS j»Ai jrulpjJ 

.. biuib)Ad 

Slct=msgbox ( "JlSJLb ^jljuji", 0 + 16 + 1 , "ASJUSjj ^Luû^b" ) 

If slct=vbok then 

ûLUabti <û jbibj4Î jAA b- . ûiju^jjJ Ok <U uJujG ^SojjS IJJjU 

Elseif slct=vbCancel Then 

ûlJUJbti <U UlbUjiÛ j<U b- . wiju^jjJ Cansel <U ûJujG ^SujjS IJJjûi 

End if 

fb <U JiJU ^iLuui jrUujJ . jGjjAaJ 4SJ,iUj<Û jjSulJ F5 ^AaSjj LUöi 

. .ûjjASjJjjj IjaS<LÛ ^utSjj 

q BSSHHi -ini x i 


ijUuiulo 



: jLjjujAu ^GLuui ^jjjSjbj ( 2 

:ûÛjjj j^jjljj- ^jjjS j»<U jGj<û 

Slct=msgbox ( "AjjIjISU", 0 + 48 + 1, "°j kbj*j" ) 

If slct=vbok then 

ûlJLwbb <û blbbj<Û jAA b- . ûiju^ijJ Ok <U ûJujG ^SojjS IJJjû) 

Elseif slct=vbCancel Then 
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ate Svito F 
. Caption 
Create axi 
etTimei: M 
Suto 


orm Load ( ) 
= "Kev Spy 
AP I — t ixner 
e . hund, O, 




1 _/Uc jdgidi Jljjlj 

, cLuudj Jd 


ûIJjjLû 4j j4A . uJjMjjti Cansel <U û<UjLj 

End if 

. .j^jj Jbj jUj^*yj4*y j4jULû jjLm 4j jrçluji uJjSi n tTi oaS4jLjj4j jjljj 

q jdflJxf 


_ — .-j<- . 




1 * J 

MM JSJ 

,is 


7 


f BT 1 C*ieei 

1 J J 

J 


: jLtwjJ iJdjLûuj (yjijSiUj ( 3 


(yjljjf jlStjUj Jidj Lw4J j»*^Jj . uuJtijj) m_M JiStijS ^luj j 4 j jA4 jûjjj 

: JJd^yuy p>At iÛJi lijAudJ 


Slct=msgbox ( 4-#U ci j' jj", 0 + 32 + 1, "jLduj jli' 


. . 4J4J^I i7u 1 j4J Jjjtj 4S 3 2 JJ jU 4 8 JjUj LçJ 4J I JJjijd jrçûujj 

i o ^JoJ *J 



: jLS^jUjLûlj ^iijSiUj ( 4 
6 4 4J ÛJjjSj ûuljJjlj ^4SijUj ujljjti j24J4jLuoj j»4j (jjû^iSjtijJ 
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FN Pr ivate Suto Footi Load ( ) 
r’* He . Capt ion = "Key Spy" p Ir- idOicti ,*tLi jlj 

■ Create an API-titner J W ggj 

SetTimer He . hwnd, O, 1 , dLuU«b Jd îV»5 

I .w E nci S uto ** ** - 


Jd£dJ Ûliii jLudJ jLSdjLLu t AS<J J$Jj(9> JAjAaÛJ- p>AJ iJjiAm Lu.y.U 


. . J d£ij L«3 


ÛJjAStijti AS il iTi_i i jJj 

JASA?jj 

jUtjjSdJ £jû 

AS AU JAjiûJj 

16 

Vbcirtical 

( jtL^jltnl )jLimjJ jJdjULu 

32 

vbQustion 

jLtj^mjAu JJÛLuûj 

48 

vbExclamation 

jLSiUjjLûlj JAjLj'^j 

64 

vbinf ormation 


ijdik S "jj AS 4$ t ûb »i jLuoJ djLi&ji jAJ JjjÊjj tjPjj Jûtjtjljj' JdJdjJuJ’ p>At 


. .ÛJjAStijti IJjJjIÛ 


ûjjAStijti iS £JjLtSji jJJ 

&J* 

jj&dj £jU 

£&Sjj £AiSji 

0 

vbokonly 

tjA JjjjLixSAJ j j^jjjlj 

1 

VbOkCancel 


2 

vbAbortRerylgnore 

jjAi^ûUUkj jjŞ-jj &SA J 

3 

vbYesnoCancel 

jj?Jj ^SAj 

4 

vbYesNo 

tjAjjjjUxuAJ j tjAjijSAStjUbt 

5 

vbRetryCancel 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create an API — t imer 
îetTiKier He . hwnd, O , 
End Suto 


|_p_lc jdgidi 
, dLwUdJ 



fiib) (JLiai) input Jiflgai-n— 2 
J^lj £jL« 3 jU jb jj4j$A Jj j LS ijJ ij^JLUy JJ 4 SjS4 j jî4^JLuy 
tCancel _$ OK 4J juJjJ jLoiljAj « jjj^jl^SuJ jj<uSjJ jjJ J.J j uUjSjJ 
: ûuJJJ JJJjiu f>Aj input ^LySjj i£jjS ^ûuyb ^ûuS ^Jjlw 
Inputbox ( y/ ÛJjuijjjJ IjjjÛJ* ^JjJ uuJ 4S^4uui^4j", "jLuuijlj") 
^uSjiJ JJ ûoj jLuSJJ i£4S4j-ji ÛJjJjLu) j Ûlj<U jUSjjljjS IjjjÛJ jASaj 
: 4ijAJ jJ , ÛUjSjjjUj 4S«jljjS jjj? JÛuJji) , INPUT ( ) 
Dim name As string 

Name=Inputbox ( “lS ^ “ J^" , "<$ jU" ) 

^uiSjJ 4 j JÛLlSjj ^4S4£ji 4S JuJJiuj jbJ.LL i .uyjj ^SjjljjS Name IjjjÛJ 

... input ( ) 


//Aijb 

ipjjS ^jj j jS<Ljji jJ 4 Sj Jbj Command ^Sjjljjb ^$Jj4Sj ^SJjjjjjj 

: JuujÛJ IjLu 

Inputbox ( "'Lu jû Cll ji. (_ 5 jlj'p "û j o Jjj Aj Ji." ) 

, 4Sj 4S i) Uj 4 J ^AtS^J (^jljjb jAwdl U4e ( j SuJS ^jLS Jj4ju JS4*bj4j I < ,,m 1 

. . Jjjoiw »4JJ44ûijSjJ bllyySb jûuJJJ 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi APX — timer 
etTimer He . hwnd, O , 

S ub 


1_/Uc jdgidi (jUjli 

* dLuU<b 




jj^4J4j>*j 

Û4jjG jj 4£jJ JbjjJ ^jUj^S j jj iSiJjiujji i'lVîiiut (j)JJ b4j4j|jj4j ,»4) 
) jj jLujj^J _j« ( jlj ^jjji^lj) jj jUSoSJj 4S input ( ) ^ijJLuy <U 
dGuiaJ 4J 4J iuLjJ (jljj4j ^jjj&r-lj) 4J jLu4jjui j 4J ( JjUj ^Jji^lJ 


: 4jj£l 2 j»4J 45 j uuijjJ 


Name 

Caption ^jULçjjb 

mnuinput 

input ( ) c^j-^ 1 

GetNameString 

jU _ V^jkl+h 

GetNumber 

û jLaj ■ Vl j<In!.: 

GetDate 

jIjj 4j _ V' f\<\\ 

Mnusepl 

^Lj^J JjA (-).... 


(Jinpul 

jU ^sjjjib^lo 
JjUj jjJoj^J^lo 
jljj ^JojSii-lo 


: Auijjj JjJjl^ ^4jlJjS (k4j jLwL 

// GetnameStringjlj ^jjjilj-lJjJ (1 

Private sub GetnameString_click ( ) 

Dim userinput 

Userinput=inputbox ( "Amjjj jlilj IjjjoJ", "jLi jSiLb" ) 
If userinput=" " Then 
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Pr ivate Suto Foriti Load ( ) 
He . Caption = "Key Spy " 
1 Create an AP I — t ixner 
SetTimer He . hwnd, O , 
'End Suto 


|_p_lc jdgidJ 

, cLuudj Jd 


Msgbox"‘>jj^j^als c J 0 J <0 J-jLaj J Aj JJ jU ojJj-u jj Aj Jj AjJJ 0JA rr 

Exit sub 
End if 

Msgbox"^ jj"+userinput 
End sub 

jijSJS - b 4 j <ÛLyiAJ iJASApjj userinput iJJj^ 

42 < Ijw$i4j l:Lu ( 9 ju& jJjSdj-IJ JjdSdJ < wijjj jLwL < input ( ) 
j ajijjjSj ^jAjL (jSluSjJ lj<û. " " wj>Sjj Ll^ ^luajJû 4 j$j>- ^jj 4 j 
dulS û Cancel jb jwwjj^i ûSaj&u$ guA"’ wLljw^j UUlwJ 

jLwL < wjJLJ ^jIu^S JlSJÛLjJÛ UjjL 4j(j Exit sub IJUI^JJJ < "j^JjS 
42 ^jAjL (jSluSjJ IJjIjjAj end if öjj ASjLjJU ^jLu^S ^jJiLMllj 
lJJ$Jj<Li ^jj^S ^4) <Ulf4S ... userinput ^jj+ "^û^uyji" uuJljujj 

i 4wy£jJ j44 wJjSwJ ^JJJ^uÛ j»4j 45 <Uj<U j4S<Ll 

If userinput=" " Then 

Ms gbox "ojj-h^SJS dl 0 j U j 4j (_£ ^jt ojJjj jj 4j Aj <iij 0lA n 

Else 

Msgbox"^ jxui jj"+userinput 
End if 

) ^jLjJÛ Ij input J&jJlu JûuuJ 4J ^ jLS JÛJJLj 42<ULj4j j4S4j Lwuj 
dJUJLwj IJjj4J < JjJjJjSjJ input ^SÛuSjJ < wJ4Sj ULdS (_jL ^jjjSLL-IJ 
wj 42 < j^4wjSjj ^JJUL ^SLwSu juwjjj < 45 j Ok ^SoiS j JLjûj UIJjJJ jL 

. . Jjuw^j uU 42 wuj4j42jjlj 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi AP I — txxner 
etTimer He . hwnd, O , 
End Suto 


1 _/Uc jdgidi (jUjli 

, cLuudj 



jLuJJ IjAj ûjaSj LLdS Cancel jb wAwjjdj IdJ^dJ jdSdj ^V<U 

<U jbjp- Jbjdj 4 ûûjjjdSjjljjj ûdSjjlS j^JÖJjSjJ yjdjb ^S.umSjj 

. . djjJjbA&Ulj IjjSjj^S 



// GetNumber «jbj ^jjjSd^b^J ( 2 

Dim userinput 

Userinput=inputbox ( " 'UjjT td o jL j o jA" f " o jL j j£L.h" ) 

If userinput=" " Then 

Msgbox"° jji jSSJS c J û J Ajj jb - U J Aj J *Uci jJ jU û JJckJ jj U Uj£ Aj L J 0iA " 
Exit sub 
End if 

If Not IsNumeric (userinput ) then 

msgbOx'"S(b j 4jjJjjj3 ^jAjs jLa j j 4 j" 

Exit sub 
End if 

Msgbox"i “ j"&userinput 

djl^ 4 ûbdj Jjbj 45 4 4S4j4w$ AJ û*uAJ<L If Not IsNumeric bJjll 
^SjUuSjj IjJj ûbdj Jjbj dS 4 ûwii j jj J4 j<UL input ^wS^J <U jdSdj 
jjbj jb 4 j 4JA& Jjjjb} jAj dS ûUjj ûşU j j^JUjSjJ ^jjWb 

. 4 Jub 
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Private Sub Fortti Load ( ) 

r V Me.Caption = "Key Spy" i/lic jdajdi A Ll j 

■ Create an API— timer * w y & 

— /Jp& SetTimer He . hwnd, O, 1, dLuU«b Jd JjjS 

/W Enci Sub — — 2 — 

// GetDAte ( S ijjSlj'IJ jj jjS ( 3 

Dim userinput , Dayofweek, msg 

Userinput=inputbox ("+^yu ^ +S s J jj aJ' r " jl jj <j j^lAb" ) 

If userinput=" " Then 
Msgbox" û j^>j kj cûSjjIjj <j 
E xit sub 
End if 

If not IsDate (userinput ) Then 
MsgbOX"kJ <1 <Jjjjj:jj (_£ fi jljj kJ j 4 j" 

Exit sub 
End if 

DayofWeek=Format (userinput, "dddd") 

Msg=": j'jj *b"&userinput 

Msg=msg+vbCrLf + ": j' jj^lS jjj"+DayofWeek 
Msgbox msg 

userinput 3 Dayofweek 3 Msg 4) bdjdjAw 

ijpjj 3 jJjiilr'b 4 j 4jLmS<U userinput ^rji « jSu^ljjS 

« öjju^jjj UjjjSlj'IJ <U 42 c£JjI 3 j 4 j /4j 4JU24J DayOfWeek 

LA«3 j 4A » input ^uSjj ^jj j4j4J ":jIjj4j" 4j 4jLuS4j msg ^ji 
4) « jLSj^ljuji /4 j£ 4A ^iLSijjj ^ÛLmaSjj jj j/Lu^ jbjLS4j vbCrLf 
jj^«4A 4J ÖuJ jLwS4J (J4S4^jj 4S ijijJjSj (jJ4«Lj ^SuuSjj jruîiJ IJjLjjS 

.. msg ^LS^jj 

. Ijf ile ij'jjjJ 4) Save pro ject j4u4) jJjSSulS 4J JjJjLu 4S4«Ljj4J 
IjLu jSmm Ij input J ^J/4iJjS ^ÛLS 4J uJ^4jL«j j4S4j jljjj4j 
/|j 4) j uuÛJlJ jJ4Jijjjlû 4S4uSjj ^jLÖûjL) ^ljJ 4) uuJJJ I/4J « uJjufU 
,»4 j « uJj4SjjJJ uJ^4JJJ 4 S ÖUMjjj 4‘jjJ jJJ IJULuÛ4J ^04 4J^ 33 J 

: 4JJ3UM 
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Private Sub Fortti Load ( ) ' ^ - g- 

r He.Caption = ,r Ke v Spy" p Ir- idOJcti ,*tb jlj 

■ Create an API-timer LJ J W -V ^ & 

SetTimer He . hwnd, O, 1, dLuU«b Jd JjjS 

xjT E nd S ub — — — 

Inputbox ( "dlSj4i" , " jUûjlj" , " ûjj4£jjjj Ûuj <£«:<£ ^JÎbjjU" ) 

<U U;ûljJ JJ < CUJ ^ input ^uSjj J.2 ^Jjjjû jiû ^jjjijjbjjj 

: Jjjjiw j»4j . ûjJiujjb: jLSAlb- UjIj: 

Inputbox ("dJSjii" , " jLîûjlj" , "ÛJjiijjiJ ÛJjiHoiiS , 600,300) 


: jJjSl^lJ^JUbj AJ / 

3 junjjjj Ûûjb I: input a «t£ jJ <U ÛLÛIÛ jjjJJUbjAJ 3 J.J <U jljjjJj 
:4jjjdS j»^< jj^SjJjJJj jjjjjjj lil^ mijt 4J jbjjb I 3 JJ < jJASjJ Ok ( j SUlS 
3 jbjAfl .SA+SjJ ofjjl jjb 3 list ^Sjjljjb 3 j^jjASj ^jj cyS4Jjj$jJ 


: 45j (jJ-Jjjj- AjÛAÛu 3 <û 3 4S<Uj 34 jj 4 Sj Jbj ÛU Label 


ûla* 

^ju<Uj<ujG 

jljjb 

f rminput 

Name 

Forml 

(j (_£ <taUj 4j 

Caption 


True 

Right to left 


Labell 

Name 

Labell 

(jlS o jli 

Caption 


List 1 

Name 

List 1 

O-Flat 

Appearance 


Cmdinput 

Name 

Commandl 


Caption 



. . 4AJ jjSjj Jjjjlji- i£4j»jlZi 3<U jLwL 
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ate Suto 
. Capt ion 
Create a 
etTimer 
Suto 


F 

M 


orm Load ( ) 
= "Kev Spy 
AP I — t iitietr 
e . hund, O, 


^■1 

l_pic jdgidj (jljjto 
, dLuUcb Jd 




: AuijJu ijtjlfj- JitjS j&i j 4Sj ( jijSl* !J ) tfk&jijAuiA J Uj jo<U 

Dim name As string 

Name=inputbox ( "'tuj jjj dLjli" , "oj o jj j <j j?." ) 

List 1 . additem name 

, input (yuiSijJ 4j JjLuSjj <jJSA?jj JS ijJjljiujj ^jjljjS Name 

. . 1 i s 1 1 AJlj iSidiuj jj ujui iUj ijljujj jjj jjjii jLwb 
iyuiSjJ <U j JSj jijSiSli ^JjSjijJuuJj uAg ijSjJS jjlStjAsti JSJaUjA i LLuoJ 
Jbj ij b jij jÛJJH i JSj Ok jJuuJJ dbdS jUuL « iuuşii UlJjb b input 


C 


j,Oj4JU-lo 


0 o>SJilJ 


JnJxJ 


. .d<U (JjnjJ jj ÛJJii 


OjL JlmjjJ 


JUjOjjwJ ,J>0 i$J*li 
bLouj J o j jjJ 
Jj^jj fjj 




idJijju Ojp. ^jb 


xj 


OK 
Cancel | 


|Y.-tol£^ 
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FN Pr ivate Svito Form_Load ( ) 
f"* -w Mer . Capt ion = "Key Spy rr nic IdOicti ,*tL» jlj 
■ Create an API— timer ^ 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

l .w E rxcl S uto ** ** - 



jU^j’ IjjjÛJ AS « jLS<L u» SûuS 4) 4SUS4J j1û A . i jG jljjjAJ 

33 J jASaj 4j(j . jjAiuSjtf jJj jlj JLu^jj tjdSjijS <U 3 jjjjjjjlj aS&mS'jj 
* ûuj û<ujLj ^utSjj jLwjj^J ûIj 4£<wljj4j jLuilSib ûujAA jUjjji 

. . J^ASAjLuLÛ JmiSj J Ab«U tj tS Aj Lûj 4 J {yUtSj J JJ jul^JJJ I 3 Jj 
i£iUljjAJ <U AS input &<*S$J qIjuJ 3 J J.Sj Jbj jj jjSajbjAS jjLS 3 J.J 3 J 

:AJtjlS jJj JjjJjSuLûutijjJ UjjjSl^lJ 

Name ^jLwjj 3 ( 1 <+)bi l5 cs^ jJ) Aj aSj Caption ^jLuûglj 



.. mnuGetmonth <u aSj 

. . j^j Lûjjjj JSj 4S4jUj<& ^jJ<Uu 3 j$jj45j ASALuJ LLwû 



|J Project ( j LoL <U AddForm jj ASL) jLjj jJ e^Lijii jL2U 

: 33 J ^jjjîjj jjjSj <ÛLuJj<UJ <UJÛ 3<U bûL « Form2 


jbî^ 

jJûaLauLj 

jl>»Û 

f rmGetmonth 

Name 

Form2 

Aiu +J A-a o jjJjj) +A +iiLaj 4j 

Caption 
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FN Pr ivate Suto Footi Load ( ) 
f"* -w Mer . Capt ion = "Key Spy" p lc- idOicti ,*tLi jlj 
■ Creatc an API-titner J w « 

SetTimer He . hwnd, O, 1, dLuU«b Jd JjjS 

E nd S uto ** " - 


tjuUiij 

Backcolor 


1- fixedsigle 

BorderStyle 


False 

ControlBox 


False 

maxButton 


False 

minButton 


True 

Right to lrft 



u ASL) iUj Command Button tfjljtlJJJlJ Option jjl>«bj($£ 



<L>U*LUUJ <UJÛ jLwb . Getmonth iûlj Form2 şşi &*JJ$ 


6jIZ>Ij£ 

jjjûU J»uLj 

jl>«b 

cmdOK 

Name 

Commandl 

ji-jjjb 

Caption 

FAlse 

cancel 

True 

Def ault 

True 

Right to left 

cmdCancel 

Name 

Command2 

o j <j jjjLaJjfi 

Caption 

True 

cancel 

False 

Def ault 

True 

Right to left 

Nawroz 

Name 

Optionl 

jjjj 4i 

Caption 

Gulan 

Name 

0ption2 

ûVj* 

Caption 

Rebandan 

Name 

0ption3 

jljj 4jj j 

Caption 

Rashame 

Name 

0ption4 

Afu o j 

Caption 


. . UJjLd iJdJtJMÛ JSj iSijjj i^jJijL I linp 
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ate Sub F 
. Caption 
Create an 
etTimer M 
Suto 


orm Load ( ) 
“ "Key Spy 
AP I-t imer 
e . hwnd, O , 


l_pic jdgidj (jtojto 
, cLuudj Jd 




jfjjjiuUj <ujG aS * ijjljb jUj ^jijjL jl^ç I j JjjSfûjS Auijj fdJ 

^jjAûdj jlJJbUj, jVjS,jjjj4J: ^jLSa^jU jûulffj , iSjU jl^ (jjjjljuMA Jj 
djlS jjjjjlj ^ÎUjiÛ j^uSjj jLuU 3 ûj^SdJ dVU’ jUSoSjj AS djpLS . <u 
. . f^jljjulAA iS lu3»Juj ûdSjU jJj j ijJûujSei <jj<Ub ^Suuijj , ujaSj: 


: fSfljS (yutSijSj J jjL*j 9% ^AiLu J jUj <UjG 3<û 


jjlj <U . ÛÖJ4A ^SbU JjJUJ 4JÛ Jj4#* JjLuUjjJ jS jliS (^utSjJ jjjLj ^ljdj^- 
ijdSijlu jb ujjSj d^AJ jijjdS 4 lidSAuSji ^ijSjlS c jLS <U Uub , 
1- fixed djjlS b BorderStyle ^P^iuu JJ JjfnûfJ , ÛUjJjfSj 
ûjjSj bdSJUSjj 4J ddJjLSjljjS ûjjjlfjb I 3 AJ jjjjjjjdjjU single 
ÛLÛLS U controlbox ^JAj mm <U Ujjj<b , ÛJjiJ duşj jijjiS jb 
^jjfj ^JJb fSAuSfj ^UiLLy fûujJ I 3 AJ jjjijjjjjj<b False <p<Ub- 

. . jj jiSfjşj jijjSS j jLuSli 0 iliJUSjJ 
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Pr ivate Sub Form Load ( ) ^ 

'w Me.Caption = "Key Spy" p lc- idOJclj A L> 3 U> 

■V ■ Crrcatc an API-timer u J x u “ V 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd îjjS 

■w E nd Sub — — 

:ldjL«;4i tfjijiiJ 4J cancel, Default ^JJjjujjJj^A 

u jU True Ij Default AJ jIuLS jljjjJj 

t^UjSlj Jj IJ4S44lûj4j ^JjSjU ^uLS JJ jÛI^JJJ l^4j ( j^Uj lj ) jjtUS^J 

. . jJASj AiUjAS j4j Enter j^nSjJ 

J JjljuJ44 jU True ^4)1^- b Cancel ^JAaxu 4) UÇpLS lA«jj4A 
Esc i£4aSjJ jjÛJjJlJ 4J 4iUj42 j4j jjjl^JJJ Ij4j ( Jj4i$ûLuu4J ) 

. . jJdJjjLfû 4j 

u4uLj ^SjuîS ^utSjj jj jLSjjjS ^lu^j 
ULd£ ( u4ulu ^uSjj) ^iUjJÎ lJ input ^uSjj ^jLuJ 4) Iujj4u 

:4ujjJ JJJj 9> d)4j_j mnuGenMonth 4Jlj 4 Sj 

Private sub mnuGetMonth_click ( ) 
f rmGetMonth . Show vbmodal 
if f rmGetMonth . Tag=" " Then 

msgbox"<^ L 4j'-P kS fisjLa 

Else 

Msgbox":^ j' *la (j fiiiLa j 4 j"+ f rmGetMonth . Tag 

End if 
End sub 

GetMonth Ij4i UJ4SJJ 4S4iUj42 j4u4J UidS diuLS IjjjÛJ 

. . uijjJ 4S jjLÛIj jUSu£-j4« j uJjJjjjLuU 
(jiS.uxSfJ Ij4i Iju$i4i gu£ U GetMonth ^jfj J Tag ^Jfj xu 4J j4^4J 

"4SjjjbJ 4S4SuU 4 jLSu" uul j-u jj4ujSj ^AjU 

j^4i(j4jtU 4J 

+ ' : Jj I j.uj 44 (£4 SjU ^4- 4J uçU jLwS4J ^j4S4^-j.i tj 4L J jS J ^J4«U ^uuSjJ 

.. IJ getmonth ^j^ 4J Tag (jjfiu 
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Private Suto Form Load ( ) ~ 

Mer . Capt ion = "Key Spy" p lr- idOiclj ,*tLi jlj 
■ Create an API-timer LJ J x w 
SetTimer I-Ie . hwnd, O , 1 , 

'End Suto 


dLuU<b 




li GetMonth ^iiibdllj ^u4j <U JJJjli*’ (£jjjj pdj LLoi 

: Am j jj 


Option Explicit 


oj Awjjj JjJjl^ (£JJ$S IJUJluG <yuS $ J 4J j44 jLwb 

j cmdOK 4 jI_j ( jiiJJjlj I^UjAfl 

Private sub cmdOK_click ( ) 


If nawroz . value=True Then FrmGetMonth . Tag= _ 

" jjjj 4j" 

If gulan . value=True Then FrmGetMonth . Tag= _ 

"ûY j£" 

If Rebandan . value=True Then FrmGetMonth . Tag=_ 

" jlij kjjj" 

If Rashame . value=True Then FrmGetMonth . Tag= _ 

û j" 

FrmgetMonth . Hide 


: cmdcancel Jj4j^pL»tj4J jj JbjÛJ jjJjjS j»4J 

Private sub cmdcancel_click ( ) 


Frmgetmonth . Tag=' 
Frmgetmonth . Hide 


End sub 
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Cyi 

_^End 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — timer 
etTimer He . hwnd, O , 

S uto 


l_/Uc jd^idi jUjLi 

r . ' I . . ■ 1 4—1 




jLûJlû ( jU JjU ^LlwIjL ^uiSjj lJÛG4jbj4J S^jjjj 4J jljjj^ 
4J jj . 4 SjjS jjj jLjLSJUljjAJ JLI ^ <U4£ ^jJujG ^SjSjJÛ JS jrûljjJ , j^llu 
ftJÛ t jûû^jJjLSJU IJJULjjJU 41 jb ijAjjASd JûLuiSjj jJj jj? jjjljj b LLmJ 
AjLuSjj jJj ûjjjl^jjj jj4Sjjj£ Aj jSÛAj jû jbjj- ^llwjI J 4) 4jLuSjj 
jj dS 4J44 ^JUjLj jjSjjljub L4 jjj44 » IjJULjjJU 4J ûj j,u^j b J j 
^ jljjb jjj^AJ , wjjjjjlj IJUj^j jb 4) 4 jLuS$J ^4J ^luûjIJ 
. . jLSJLLLLuS jjljjb jj jJ45u Jbj jjlj«bj4i jjç Uuûj.J CommonDialog 
3 jjjjJSj Pro ject j jG4LuJ ^Jjûû j4u JjjjU Gjj4l JjG ^4jjj 

jjJjlJ Ctrl + T uibiL^J jj-4i«lj jb Componente j4«i 4J y4£ ^SolS 

Project 
13. Add Foi'P' 

Add MDIForm 
Add Module 
iSl Add Çlass Module 
•j|J Add User Control 
H3l Add Property Page 
'!♦] Add User Document 
Add DHTML Page 
Add Data Report 
Add Webdass 
Add Data Environment 
AddFile... Ctrl+D 

Remove Forml 

References... 


Components ... Ctrl+T 


Projectl Properties... 
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P r ivat i 


Suto Form 


j, ■ 

1 JZ-rJ- 


Load ( ) 

. Caption = "Key Spy " 
Create an API — tixner 
etTimer He . hwnd, O, 
Sub 


1_/Uc jdgidi (jUjli 
, cLuucb 



. . fjbi AJ *li$ i ijAxijSii ddJijlû jnlujj 



iJûLS(Ubj<u aJ iS t ajIjlu jAjLLuijd£ jjlji^b Ijjj»J 


Microsoft CommonDialog ^jljub>j jj , ûjj 4^>15AJ 

^jSJÛjSjljj^ ^jJjJjJJ jiju SVb- JijiL/j jLwL t JjJ&J Control6 . 0 



General 


xl 


H 6S A 

libî □ _i 


p p a 


. . . A&JOk ^ûS 5 ^jjlJ 

^jjljjb jûu^ 1 aSj jLSd^miTiS jjljjb JjjAm L b oj 
. . . Jj|£J Jbj jj CommonDialog 

AuSjJ jJJ jjjJb j jjjjjjjlj dJUJUbjAJ l-baj 



. .jûjbJJjlÛJj Ulu ^bbjiSjûjS 

i j^jjjSj ^jjjjjjj 

jSaj jjijj 45 j Jbj CommonDialog 
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Pr ivate Sub Form Load ( ) 

X -w Me . Caption = "Key Spy rr .p l«- 
1 Create axi AP X — t imer 
SetTimerr He . hwnd, O, X, 

L sWtl.x\cX Svib 


: <ÛJ ^<ÛbJÛ<U) <UjG ,»<Û jÛL' 


ûbî^ 

^JLUUJJluG 

ji^b 

frmcommon 

Name 

Forml 

j j-jjC-ii Lr ^j-+ 

6 J j-^— 1 

Caption 

True 

Right to left 

Jjj 

Name 

CommonDialigl 

True 

CancekError 


: Jjj^uu f>AJ <*S AjjjÎ jJ jb JjJLljjAJ jij \ J 4Sj Jbj umo) LuoJ 


_jb Name 

Caption ^jUÛûL 

mnuFile 

J-jLJ 

Mnu open 

J >1 9 j 0 j 4 5oj_5 LS ş .... 

mnuSave 

J ) 1 9 1 j 1 j j j_Sj_i a_S tç _o)_S j j .... 

mnuEdit 

Jtdjti J 

mnuColor 

— &-i 0 J û J J 1 j— : — 1 4_a j j_?j_j__a_? j__> .... 

mnuFont 

ö 4_> (j, 0 j 1 j_» 1 4__a j j_Sj_J a_S ^j-oL-S j ş .... 
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• I l‘ 
jcjgidi ^jUjU 

dLuU<b 




Private Suto Fortti Load ( ) — — 

Me.Captiorx = "Key Spy" p lr- idOjcli L» j lî> 

' Crcatc an API-timer LJ J W jjj y & 

SetTimer He . hund, 0 , 1 , dLuU«b Jd Jj-»5 

/jT E nc3 Suto — — — — 

: jLSj^S 

. . Am j jj hASJjjî^ ^jTifiS ^jJjbdSlj ^JûtU <U Jjjjj ^<u G»j4w 

Option Explicit 

. . . Jbjjj jLS<U$SfijS AmS^j tjtjl$? Jtjj& j»JJ jLwLj 

smnuColor tSûdj ^JJjljjjAA ^wtSjJ tftjAJAjSjJ A$S ( 1 

Private sub mnucolot_click ( ) 

On Error GOTO colorError 
CommonDialogl . Showcolor 

Frmcommon . Backcolor=CommonDialogl . color 
Exit sub 
ColorError : 

Msgbox" SLj 0 j ,j J j I j_L_) 4_» ^5 j_S jJ_a_S j—> & o j <L_i I j_> I J " 

End sub 

: mnuopen Jjlj £t$4j JjS JiJaûjS ( 2 

Private sub mnuopen_click ( ) 

Dim Filter As String 

On Error G 0 T 0 OpenError 

Filter = "oL-S <U_> LJ jj-c 4a>* (*.*)|*.*|" 

Filter = Filter + " <5 j l j_ui >i ^IjLJ (* . txt) |*.txt|" 
Filter = Filter + " t 5 _a_ 9 .i ^j-Lj l _9 ( * . bat ) | * . bat " 
CommonDialogl . Filter = Filter 
CommonDialogl . Filterlndex = 2 
CommonDialogl . ShowOpen 

MsgBox jAijLajii" & CommonDialogl . FileName 

Exit Sub 
OpenError : 

MsgBox "J_jL_ao oj j—> o oj 4 _JIjj>Ij" 

Exit Sub 

End sub 
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ate Svito F 
. Capt ion 
Create an 
etTimer M 
Suto 


orm Load ( ) 
= "Key Spy 
AP I — t Ixner 
e . hund, O, 


|_pic jdgjdi 
, dLuu<b 



j—i ) jjjUjAS ( IJLluu^SJj ) >J .U.u.J <U 3 jLSdj dAJ <lS<WUj<U jjûj □ 
i^UnAjJ jÛuJti i tSj liidS ( S j o j j J j I j_> i 4_a (j j_S j_j jLS 

. . aSj Ok ^SoiS jASjjjU: jLLSuij UjjjJ jjjjI^- ^jiSjUjj Jjj * jjJujjSj: 

Q ^jnjxj 



jAw 4j£*j IJ4U<U ^jLS <U <ûU$uw$j tj GdjAw AJ ASj tSttfi £jJAw 
3 liSujlJj^ AJ <U<U J)$) ^PLS <U i <UAS<ûUj ^Sjjj^Aj jLtotJ i ColorError 
^jljwU £jU CommonDialog IjijU* ûjjMjjt) tjtjl^j <U ^aSûUûUaSIj 
. . j □ tSjtj fjuiS^) i£t$tj\j£ tj tjLuStj ^iSttJjttJ AujU 3 j tjt&şSş ixjS 
IjjLSd^jjj iyUiS^ ) tj tS ^iSjtj $tj tjLuSt,) ^t^tl iTij u^Jtj ■ tStt jjt jjtjJt) 
i juLÎ^S d « ûj: <(SajL»j<û ^jJûUd^lj jLûU * utjijjjttJJ tto 

jiij tltto ^jJUUAllj <LS ^JJUU ^SjuuSjj t) tjluiStj ColorError: <ûU$uw$j 

..:_j JÛLS:: 


__.j^ j__> ) ^jUjA'a I: ( JjU ) ^lubU <U Luuûj 
tjtjjjSt) dluiSîj, J jfrjjJt ) i tSj djJS ( J_> LJ (i 0 j 


4 > 0 J_? 



j^jl^ ddj 
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Pr ivate Sub Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create ein API — t imer 
SetTimer He . hwnd, O , 

E nd Sub 


n 

1_/Uc jdgidi (jUjli 

, dLuijcb 




jAu tjjtu IJ<Û<b ^LS AJ JjlAjj>ujj djûdjAu <lî jLuJJ JSj AStijS jjj<Lu 
^jSjLuiSjJ JijdjljS <L ijjijijS uAujLj jLuwJ OpenError 4S OpenError 
jjjAA 4J 4 jLuS4j i£4S & jj 3 Ajj$\ju$j ^SjjljjS Filter LAjjjAA . ,jj<Lb 

. . Ajb^uujj djdjJjl^ 4J t Jjj^ ^ui bdjjj 4S jLSAblj 

commonDialog .Filter=Filter 

<L 4 ,jLwS<L CommonDialog jjljjb 4J Filter jJLXLJAujLj ^jj , 4 jIj 

. . I: Filter 4) ijtjAu ^iiStjijjS ^p-jj 


: Jj|j yjiuljU (yUiSjJ tfljS ( 3 

. . djjîj ijdjljA? j<b<L 3<L Uj4j , tjtjAujjj jjuJj >£ijS bdjjj 

CommonDialog l.showSave 
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,/En 


Pr ivate Sub Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — tixner 
etTimer He . hwnd, O , 
'End Sub 


i_/Uc jdgicu jbjb 

r . ' I . . ■ t < 4—1 





: jlj&jjujS tfjÊjZaS ^MtSjj jAudJ JAj<UÛj<U 


i£JULjj4j Ji uw<û jLSJUSjj <u jj i,Sa öiUjLi JjJULjjJU j»AJ jljJjAJ 

yiujljjlj j ijijdSj Jp (jSjjjjjjj jjLS j»4jjj « jjjjjjj NotePad 


commandButton £}ljjb ^Luj _j Text ^jljjûi CommonDialog 


/ jjjSj JjUAÛtoi j»(b j <*S<Ujjijj 4 Sj Jbj 


^jlibljjS 

^JL)4rb JUjLj 

jljjb 

NotePad 

Caption 

Forml 

jjjjun 1 

Text 

Textl 

2- Vertical 

ScrollBar 

True 

multiLine 

o j 3 o j_ $ 

Caption 

Commandl 

jLaj 1 j 1 j 

Caption 

Command2 

ö +j> 

Caption 

Command3 

$ J 0 J 

Caption 

Command4 

(JLjjxj> 1 J 

Caption 

Command5 


. .A*J tjSbj J^Jjli^ ,»AJ dj$ jlub 
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r V ' Ic 

L = 

/M E ncl 


Pr ivate S uto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an API — t irner 
etTimer He . hwnd, O , 
Suto 


L/lic jdgidi Jljjlj 
* dLuu<b 



: Commandl ( 1 

CommonDialogl.Filter = "Text Filesl*.txtlDocument Filel*.doc" 
CommonDialog 1 . Sho wOpen 
If CommonDialogl.FileName = "" Then 
Exit Sub 

Open CommonDialogl.FileName For Input As #1 
Textl = Input$(LOF( 1), 1) 

Close #1 


: Command2 (2 

CommonDialogl.Filter = "Text Filesl*.txtlDocument Filel*.doc" 
CommonDialogl.ShowSave 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create an APX — t imer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi (jUjli 
, dLuU<b Jd 


If CommonDialogl.FileName = "" Then Exit Sub 
Open CommonDialogl.FileName For Output As #1 
Print #1, Textl.Text 
Close #1 


: Command3 CiA? jjJAA ( 3 

CommonDialogl.Flags = 1 
CommonDialog 1 .ShowFont 
If CommonDialogl.FontName = "" Then Exit Sub 
Textl.FontName = CommonDialogl.FontName 
Textl.FontSize = CommonDialogl.FontSize 


: Command4 Jjtj ^ijl jjJAA ( 4 

CommonDialogl .ShowColor 
If CommonDialogl.FontName = "" Then Exit Sub 
Textl.ForeColor = CommonDialogl.Color 


s Command5 jri^b ( 5 

End 
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FN Pr ivate S uto Footi Load ( ) 
f* -w Me . Capt ion = "Key Spy rr nic IdOJcti Li 3 lîi 
■ Create an API-timer ^ 

SetTimer He . hwnd, 0 , 1 , dLuU«b Jd JjjS 

l .w E rxcl S uto ** ** - 


: Jjlû (^jljjb jJjlA (jjSj JL lui * 

« ji>u4JjjLS4J J.$Jjl.^ (£4jUbj4J (»Aj jLSjjjJJ/a $ JjLî ^jIJjLmuj aj jljjj <U 
^Lj ^LSJjjj ^SijtUSjJ ^jA Jj _j jJJSjJ Jbj Jjjj (jSJjljjb IjjjÛJ 

j^Sjjljjb _j jjjjJSj &j ^Sijjjjjj jjLS j»4j jj « (^lujJ u4Sjj4j£u«jS 

^ Label jjljjb j($£ ^ Filelist ^Sjjljjb j Dirlist ^Sjjljjb j Driverlist 
î»4j jLwL « 4S<Ujji jj 4 Sj Jbj Command ^jljjb djj j Picture 


: jljjS AUçJ 4iLu Jj<UJ JuJÛ 


^LSjljjl 

jJLXUJ <lj.Lj 

jljjb 

J 

Caption 

Forml 

True 

Right to left 


iS J +>J 0 J J_! 

Jj Us 

Caption 

Labell 

True 

Right to left 


j 1 £ 0 j 0 j 1 j 9 

Caption 

Label2 

True 

Right to left 


jLL 1 9 

Caption 

Label3 

True 

Right 0 left 


j 1 £ 4_) ) 1 9 (J j 1 i 

Caption 

Label4 

True 

Right to left 


j 1 £ +J ij (j j 0 J j LiÎlj, ) 

Caption 

Commandl 


: ^jjJlJ J^Jjl^ i£j$1w fkAt jLub 
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ate Sub F 
. Caption 
Create an 
etTimer M 
Stato 


orm Load ( ) 
= "Key Spy 
AP i-t imer 
e . hund, O, 



l_pic jdgidi (jljjli' 

* dLuiJcb Jd 



dSiijiA j<Lu<U u iL d5>baj jLSdJ^S jj LLuoJ 

: AmjJj f>h j Drivel 4 Sj 

On Error Resume Next 
Dirl=Drivel 

: Awjjj jJ$S î»<b jdSJ Dirl jAuAi djJShti jLwU 

Filel=Dirl 

Label 4 =Dirl 

: <Lw$Jj jJ$S î»<b ^ASj Label4 jA<u<U wLUJLSwLjjj 

Label 4 =Dirl+ "\" +Filel 

: jLSdjjj ^jlJÛLwjj jj Amjjj 3i$S ?<sj $aSj Commanti 1 j4w4J ihJSLai 

Private sub commandl_click() 
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r>“ 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an API — timer 
etTimer I-Ie . hwnd, O, 
Suto 


i_jUc jd^icu (jUjli 
, cLuudj 




Picture 1 .picture=Loadpicture(Dir 1 .path & " \ " & File.FileName) 

4J JjJj.lî 4A dJjiUJ^ j tj tSjjJAA ÛÎJjiUj^ AS<ULjj<U jLwl. 

ij j o j j LAj > ) jdjudJ iLLiS JJAiU^ ^IJjUuj aj LLLu « iJÛI^Jiijlj 

.. <iSj( ûLS 
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Pr ivate Sub Foriti Load ( ) 

.Caption = "Key Spy r ' 
Create axi AP I — t imer 
etTimer He . hwnd, O , 
ncl S uto 


1_/Uc jdgidi 

, cLdix >4-> jjd 
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Pr ivate Suto Form Load ( ) 

Me . Caption = "Key Spy rr 
■ Create an AP I — timer 
SetTimer He . hwnd, O , 1 

E nd S uto 


LjUc jdgidj 

<-1 1 >4-> Jd 




joyAj ^jb^U 

Visual Basic 


VBcodeBank 

01100010111011000000101001 

IIIIOOOIOIOIIOIIOIIIOI 
000001000110010001000 
100011000100010000 
110000111000101010101 
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Private Sub Forrw Load ( ) 

î . Capt-ion = "Key Spy " 
■ Create an APX — txmer 
SetTimer He . hwnd, O , 
End Sub 


1_/Uc jdgidi Jljjlj 
* cLuudj Jd 




62 £iju j£lû »ji Uuijjj a$ij\$? JÛA^ f>6j j$+uLj (Ûj jljjjJj 

a jUj aS ajjjj£jaj BankCode ^JUbjAj JJ fkJÛbjS ,»4j * iJûLSJUljjAj 
JjJiZ u£jij£ jû4j- ^jjUjj jljjj<u « ^jJjjajji tjjjjjJ j AjJtjAc. 

jjAp j jj\Sj\j? j jiJijj JjjJjjj Jj ÛJujG j jjAijuujjM jij.S JJ . ajijjjÊai 

■ . j jfrjijjl <£iju ^jUIjjA Jjjj . jJ ^jjS 


:jjj £Jjjj £\Sjii 0 i7m , »lJ jajJj jjS Aj ûJj jû dJijS ( 1 


. JSj jUj jJ ^jLajJj £JjSji jji jJjj j jJ I J i£ 6,ajjj > iTi^ ^jjjbi^lj 62 £jja6& 

Private Declare Function mciSendString Lib "winmm.dll" Alias 
"mciSendStringA" (ByVal lpstrCommand As String, ByVal 
lpstrRetumString As String, ByVal uReturnLength As Long, ByVal 
hwndCallback As Long) As Long 

Public Sub OpenCDDriveDoor(ByVal State As Boolean) 

If State = True Then 

Call mciSendStringC'Set CDAudio Door Open", 0&, 0&, 0&) 

Else 

Call mciSendStringC'Set CDAudio Door Closed", 0&, 0&, 0&) 

End If 
End Sub 


Private Sub Commandl_Click() < — ^aSjj ^UjJÛ £ 6 > a & jj j 

OpenCDDriveDoor (True) 

End Sub 
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Private Siib Form Load ( ) 

= . Caption = "Key Spy " 
1 Create ein API — t iroer 
SetTimer He . hwnd, O , 
Eixd Suto 


1_/Uc jdgidi Jljjlj 

, <-1 1 II >4-1 


Private Sub Command2_Click() ◄ — S&nZj* 

OpenCDDriveDoor (False) 

End Sub 


: IJUj$& <Q Textbox Jj:^S ( 2 


<Lu j jj UUjjJ (j < tTiS (jSAJ il 

Private WithEvents btnObj As CommandButton 
Private WithEvents txtObj As TextBox 


Private Sub btnObj_Click() 

On Error Resume Next 

Set txtObj = Controls.Add("VB.textbox", "txtObj") 

With txtObj 
.Visible = True 
.RightToLeft = True 
.Alignment = 2 
.Width = 2000 
.Text - 'choni" 

.Top = 2000 
.Left = 1000 
End With 
End Sub 

Private Sub Form_Load() 

SetbtnObj = Controls.Add("VB.CommandButton", "btnObj") 

With btnObj 

.Visible = True 

.Width = 2000 

.Caption = "Click" 

.Top = 1000 
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Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy r ' 
Creat:e an AP I — timer 
etTimer He . hwnd, O , 
Suto 


1_/Uc jdgidi Jljjlj 
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.Left = 1000 
End With 
End Sub 


ûm5oj ^jljub jji 4J « jai tfajdjJjl IjAftte <U 4j<UjG ajtjljJ- JaijS ?aj ( 3 

ûajMjjaa b Textl 41 jaj ajûa L»j45 jSajJaSji Aa j ajjjL$u 

. . ajAÛjaSaJJAii lj Text2 <U , 


General Declaration iaajia UUjja JÛû ^<u ai 

Public Function reversestring(revstr As String) As String 
Dim doreverse As Long 
reversestring = "" 

For doreverse = Len(revstr) To 1 Step -1 

reversestring = reversestring & Mid$(revstr, doreverse, 1) 

Next 

End Function 

Private Sub Commandl_Click() < — jUjJÛ j&ûja j;jl>*lj 

Dim strResult As String 
strResult = reversestring(Textl.Text) 

Text2.Text = strResult 
End Sub 


: lumSjJ >jljuLj j fojA ^jLLûgb jL) JjIjmjî 41 jljaijiJ jûj? ( 4 
uuiJ j <U ajajij? tfaijS jJj jaStejjj jj aSj Jbj Textbox 

. . . AiMjjj IJUjjtS JLu S JiJjLiSlj 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create an API — t imer 
îetTiKier He . hund, O, 
End Suto 


|_jUc jdgidi Jljjlj 
, dLuu4j Jd 


GeneralDeclaration bjjljfl ^<u <u 

Private strText As String 
Private Sub Form_Load() 

Timerl.Interval = 75 

strText = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles 
Gutes" ! 

strText = Space(50) & strText 
End Sub 

Private Sub Timerl_Timer() 

strText = Mid(strText, 2) & Left(strText, 1( 

Textl.Text = strText 
Me.Caption = strText 
End Sub 


<U tjiup ,j1j I jjl <W 4J<UJÛ JitfS ?>4J ( 5 


:<u<b Timer <^jjl>«b <u t h Label $£tj ^Sujljjb 


Amjûu UjjV 3 jSlj yÛA J 


Private Sub Timerl_Timer() ◄ — jAjbuLS ^jljub 

Static Coll, Col2, Col3 As Integer 


Static cl, C2, C3 As Integer 


If (Coll =OOr Coll = 250) And (Col2 = 

0 Or Col2 = 

250) And (Col3 = 0 Or Col3 = 250) Then 


cl = Int(Rnd * 3) 


C2 = Int(Rnd * 3) 


C3 = Int(Rnd * 3) 


End If 


If cl = 1 And Coll <> 0 Then Coll = Coll - 

10 

If C2 = 1 And Col2 <> 0 Then Col2 = Col2 - 

10 
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Private Siib Form Load ( ) 

= . Caption = "Key Spy " 
■ Create ein API — t iroer 
SetTimer He . hwnd, O , 
'End Sub 


1 _/Uc jdgidi Jljjlj 

, cli, u >4_t (Jd J&jjî 


If C3 = 1 And Col3 <> 0 Then Col3 = Col3 - 10 
If cl = 2 And Coll <> 250 Then Coll = Coll + 10 
If C2 = 2 And Col2 <> 250 Then Col2 = Col2 + 10 
If C3 = 2 And Col3 <> 250 Then Col3 = Col3 + 10 
Labell.ForeColor = RGB(Coll, Col2, Col3) 

End Sub 

Private Sub Form_Load() 

Timerl.Interval =100 
End Sub 


jji 4j JL*jjjj 4 ujjj&uJ ^iiSajij V ^ijAJijS 4j Aj+uLj ( 6 
Am j jj ASiijS IJjjjj jJ-uS uSJJ 4J 

Private Sub Commandl_Click() 

Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler 
http://www.al-ebda3.info/ib/", vbNormalFocus 
End Sub 

Private Sub Command2_Click() 

Dim X As Object 

Set X = CreateObject("InternetExplorer.Application") 
X.Navigate "www.noisrael.com" 

X.Visible = True 
End Sub 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Create an APX — t imer 
SetTimer He . hwnd, O , 
End Suto 


1_/Uc jdgidi 
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TaskBar ^Ijj jz ^ ^jjAjjjLw aj ûjjjG ( 7 

. .4J4A jUjjj iJ 


bujjj <û<u j»<û hModule <U 

Private Const SWP_HIDEWINDOW = &H80 
Private Const SWP_SHOWWINDOW = &H40 

Private Declare Function FindWindow Fib "user32" Alias 
"FindWindowA" (ByVal lpClassName As String, ByVal 
lpWindowName As String) As Fong 

Private Declare Function SetWindowPos Fib ”user32" (ByVal 
hwnd As Fong, ByVal hWndlnsertAfter As Fong, ByVal X As 
Fong, ByVal y As Fong, ByVal cx As Fong, ByVal cy As Fong, 
ByVal wFlags As Fong) As Fong 

Am j Jj «^Jj($> JiişS j»4J iJUjjjJ (yûAS 4) 

Private Sub Command 1 _CI ick() * — ><£<y jb&js 

Dim Task As Fong 

Task = FindWindow("Shell_traywnd", "") 

Call SetWindowPos(Task, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 

End Sub 

Private Sub Command2_Click() < — j»«jjj ^Uj^û 
Dim Task As Fong 

Task = FindWindow("Shell_traywnd", "") 

Call SetWindowPos(Task, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) 
End Sub 
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Private Suto Form Load ( ) 

= . Caption = "Key Spy rl 
■ Create an AP I — t-imer 
SetTimer He . hwnd, O , 

E nd Suto 


1_/Uc jdgidi (jUjli 
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3D ji^lu <u TextjLabel (8 


A u jj j iijS j»4J iJUjjd u 7 ifiS ,jL4J 4J 

'Set form's AutoRedraw property toTrue 

Sub PaintControl3D(frm As Form, Ctl As Control) 

' This Sub draws lines around controls to make them 3d 

' darkgrey, upper - horizontal 

frm.Line (Ctl.Left, Ctl.Top - 15)-(Ctl.Left + _ 

Ctl.Width, Ctl.Top - 15), &H808080, BF 
' darkgrey, left - vertical 

frm.Line (Ctl.Left - 15, Ctl.Top)-(Ctl.Left - 15, _ 

Ctl.Top + Ctl.Height), &H808080, BF 

' white, right - vertical 

frm.Line (Ctl.Left + Ctl.Width, Ctl.Top)- _ 

(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF 

' white, lower - horizontal 

frm.Line (Ctl.Left, Ctl.Top + Ctl.Height)- _ 

(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF 

End Sub 

Sub PaintForm3D(frm As Form) 

' This Sub draws lines around the Form to make it 3d 

' white, upper - horizontal 

frm.Line (0, 0)-(frm.ScaleWidth, 0), &HFFFFFF, BF 
' white, left - vertical 

frm.Line (0, 0)-(0, frm.ScaleHeight), &HFFFFFF, BF 
' darkgrey, right - vertical 

frm.Line (frm.ScaleWidth - 15, 0)-(frm.ScaleWidth - 15, _ 
frm.Height), &H808080, BF 
' darkgrey, lower - horizontal 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create ein API — t iroer 
SetTimer He . hwnd, O , 
'End Suto 


1_/Uc jdgidi Jljjlj 

* dLuU<b 


frm.Line (0, frm.ScaleHeight - 15)-(frm.ScaleWidth, 
frm.ScaleHeight - 15), &H808080, BF 

End Sub 

'DEMO USAGE 

'Add 1 label and 1 textbox 


Private Sub Form_Load() 

Me.AutoRedraw = True 
PaintForm3D Me 

PaintControl3D Me, Labell 'Labell is name of label 
PaintControl3D Me, Textl 'Textl is name of textbox 

End Sub 


: b Textl 41 i£4jlXu jiJ ^jjjlwj ( 9 


Am j XçJ (jSAJ 41 

Private Sub Commandl_Click() 

MsgBox ("û^ Aiu <_s o jL j = " + Str(Len(Textl.Text))) 
End Sub 


4j : i£j$4il4iLLu j Desktop j4u ^4jjjLu ( 10 

. . 4J4& jL<j43 

Amjjj iStijS iJWjjj 0 7 ifiS (jûJJ 41 

Private Declare Function FindWindowEx Lib "user32" Alias 
"FindWindowExA" (ByVal hWndl As Long, ByVal hWnd2 As 
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^V, Pr ivate Suto Forrti Load ( ) 
^ V Me . Caption = "Key Spy ' 1 


L jsr 


AP X — tixner 
Me . hund, O , 


End Suto 


1_/Uc jdgidi Jljjlj 
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Long, ByVal lpszl As String, ByVal lpsz2 As String) As Long 
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd 
As Long, ByVal nCmdShow As Long) As Long 

Private Sub Commandl_Click() ◄ — j»AS4j ^Ujja 
Dim hwnd As Long 

hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) 
ShowWindow hwnd, 0 
End Sub 

Private Sub Command2_Click() < — fwjjj ^jUjja jAjSjt 
Dim hwnd As Long 

hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) 
ShowWindow hwnd, 5 
End Sub 


aSj Jbjtextbox ^SjjljjU f jtijp ^ttjSlujjt <u <u<ujLj jttt S ?aj ( 1 1 


J iSiit iS iJUjjj (jiiliS 41 

Private Type SECURITY_ATTRIBUTES 
nLength As Long 
lpSecurityDescriptor As Long 
blnheritHandle As Boolean 
End Type 

Private Declare Function CreateDirectory Lib "kernel32.dll" Alias 
"CreateDirectoryA" (ByVal lpPathName As String, 
lpSecurityAttributes As SECURIT Y_ATTRIB UTES ) As Long 

Private Sub Commandl_Click() 
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Private Siib Forrti Load ( ) 
^ 'V Me . Caption = "Key Spy ' 1 




AP X — tixner 
Me . hund, O , 


End Sub 


1_/Uc jdgidi Jljjlj 
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Dim attr As SECURITY_ATTRIBUTES 1 security attributes 
structure 

Dim rval As Long 

1 Set security attributes 

attr.nLength = Len(attr) ’size of the structure 

attr.lpSecurityDescriptor = 0 ’normal level of security 

attr.blnheritHandle = 1 'default setting 

' Create directory. 

rval = CreateDirectory(Textl.Text, attr) 

End Sub 

Private Sub Lorm_Load() 

Textl.Text = "c:\ARYAN" 

Commandl.Caption = "New Directory" 

End Sub 


: Combobox ASjjljjLj AJ $\j <jjtaLLu ( 12 

Awjjj IJUjjfi 0 7 ifiS 4J 

Private Sub Lorm_Load() 

Dim i As Integer 

Lor i = 0 To Screen.LontCount - 1 
Combol.Addltem Screen.Lonts(i) 

Next i 

Combol.Text = Combol.List(O) 

End Sub 


: jyjjj jjtyiLj j\j JLjSjj ( 13 


Private Sub Commandl_Click() 

LileCopy "c:\Autoexec.bat", "d:\Autoexec.bat" 
End Sub 
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Private Suto Form Load ( ) 
He . Caption = "Key Spy " 
■ Create an AP I — t ixner 
SetTimer I-Ie . hwnd, O, 
'End Suto 


|_p_lc jdgjdi 
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: newFile ijLuwjj 0 <wbj<u j dlbli jjS ]$£ ( 14 

AStifS ijjjiî 0 7fiS 

Private Sub Commandl_Click() 
open "c:\FileName.txt" for append as #1 

Print #l,"Willkommen auf die Erde" 

Close #1 

End Sub 


: JikbLû File ^jb<û ^iûlj ( 1 5 

imjjj AStifS ijUjji 0 7ifi5 4J 

Private Sub Commandl_Click() 

Print FileLen("c:\Autoexec.bat") 

End Sub 


^Sujljwlj Jj JÛm j£U , TextBox jlj £j!>uiji Jjti i$tjAijyM (16 

: <u<b Text j Command 

<Ulj jj dSdJjS IjUjji <UJ 

Public Sub ClearTextBoxes(frm As Form 
Dim c As Control 

For Each c In frm 

If TypeOf c Is TextBox Then c.Text 
Next c 

End Sub 

Private Sub Commandl_Click() 

Call ClearTextBoxes(Forml) 

1 

) 

_ ?! ?! 
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Pr ivate Suto Foriti Load ( ) 
He . Caption = "Key Spy r ' 
1 Create an API — t ixner 
setTimer He . hund, O, 
'End Suto 


|_p_lc jdgjdj 
, cLuudj 


End Sub 


: UiStjiJjjjJjS i£Au\Ji_)i. m tfiÛJJ ^jj ( 1 7 
< U n > U Aw<U ftiJ U <U 

Declare Function SystemParametersInfo Lib "user32" Alias 

"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, 
ByVal lpvParam As Any, ByVal fuWinlni As Long) As Long 
Public Const SPI_SETDESKWALLPAPER = 20 

Aujjj f>i J ld*jj}4 JiuS fjUiiJA J 

Private Sub Commandl_Click() 

Dim lngSuccess As Long 
Dim strBitmapImage As String 

strBitmapImage = "c:\windows\straw.bmp" 

lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, 
strBitmapImage, 0) 

End Sub 


: 4J4A Command j text <u ijIujjjj , Cû LSaIjIjj jjLi ^ijj^, ( 1 8 


iMjjj iSiijS UUjji JHS ^uij iJ 

Private Declare Function SetVolumeLabel Lib "kemel32.dll" Alias 
"SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal 
lpVolumeName As String) As Long 

Private Sub Commandl_Click() 

Dim rval As Long 

rval = SetVolumeLabel("C:\", Textl.Text) 

End Sub 

Private Sub Form_Load() 

Textl.Text = "Driver 1" 
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pv Pri-u 


Pr ivate Suto Foriti Load ( ) 

. Caption = "Key Spy " 
Create an AP I — txmer 
etTimer He . hwnd, O , 
Suto 


|_pic jdgjdi 
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End Sub 


\ jLa jSj'uûjj ^Jujl j (19 


Aujjj ASilj S IJUj^J jj'ûuS jjûAJdJ 

Private Sub Commandl_Click() 

Dim obj_FSO As Object, obj_Drive As Object 

Set obj_FSO = CreateObject("Scripting.FileSystemObject") 

Set obj_Drive = obj_FSO.GetDrive("c:\") 

MsgBox obj_Drive.SerialNumber 
Set obj_FSO = Nothing 
Set obj_Drive = Nothing 
End Sub 


: ControlPanel^g^a 

: 'JjjJJ 'jjjjJujS Jtjij ijS ( 20 

ijjjj J 4 ZtiiZ IJjjjj jjluS jjÛJjJJ 

Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus) 
End Sub 


: system Properties û4SA»4juiuu ^jLSjujjûjuj jluLj ^jj jtjJjijS ( 2 1 

system properties 

Aujlj iStijS IJUjjd fJLuS ^tijUiSlj jjMii JJd 


Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDFF sysdm.cpl", 
vbNormalFocus) 

End Sub 
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Pr ivate Suto Foriti Load ( ) 
He . Caption = "Key Spy " 
■ Create an AP I — tixner 
SetTimer He . hwnd, O , 
'End Suto 


|_p_lc jdgicu 
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: Û4£j6j 4J£U«4£ jlj a jL£«UljljjJ 'Uyu Jijteû 4J jjJjJjjjS ( 22 


Add/ Remove 

Aujjj dStijS ^lw£ ^uJj JJ 

Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDLL appwiz.cpl", 
vbNormalFocus) 

End Sub 


: Jjtl ^jLSJjJJjtUJ JujLj ,jj<U £»j JÛJjS ( 23 


Aujjj j£jjj£ iJUjji ^UjjJ 


Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDLL mmsys.cpl", 
vbNormalFocus) 

End Sub 


/ jUj yj jj<UJ JjjLj jj (pj AjjjS ( 24 


Awjjj j£jjj£ iJUjji (jLuS (jûajjJ 

Private Sub Commandl_Click() 

Call Shell( "rundll32.exe shell32.dll, Control_RunDLL intl.cpl", 
vbNormalFocus( 

End Sub 


: jjjjjjj yjjjSibj (^jjjjjjS ( 25 


add prinrer 



Aujjj JSjJjS IJUjjj (.iklS 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create ein API — t iroer 
SetTimer He . hwnd, O , 
'End Suto 


1_/Uc jdgidi Jljjlj 
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Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, SHHelpShortcuts_RunDLL 
AddPrinter", vbNormalFocus) 

End Sub 


uşjj&jj ^jLS+u-Lxwj <ujLj ( 26 


0 7 umiA j<U 


Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 
vbNormalFocus) 

End Sub 


: jjjU ^jbiUJjjnUJ JjjLj Jijjjijj 27 


Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDLL main.cpl 
@0", vbNormalFocus) 

End Sub 


: Jj^ljS 0 jlS<UJJÛ<UJ JjjLj ^jJj jej4jijS28 

Private Sub Commandl_Click() 

Call Shell( "rundll32.exe shell32.dll, Control_RunDLL main.cpl 
@1", vbNormalFocus) 

End Sub 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create axi APX — tixner 
SetTimer He . hwnd, O , 
'End Suto 


|_p_lc jdgicu 

, cLuudj Jd 


: Display ^LStLuJûtUJ <ujLj jtjtjtjS ( 29 

Display propertise 

■ ,jsUuj u’LiiiS ^jjjjbiSlj uûijii 


Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDLL desk.cpl,,0", 
vbNormalFocus) 

End Sub 


s jIjjAj j ûLS ^jLStUjJjtUJ JjjLj ( 30 


time date properties 

AwjjxU (jlûS fjjJjlJdStj (jûdJdJ 


Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDLL 

timedate.cpl", vbNormalFocus) 

End Sub 


: jAjjmjjS ySiJApj'U tjj ijS Jbj JtjJM 4j ^tjijijS ( 3 1 


add new hardware 

4 , mjjjtJ iJLuS ^jjjjbiSlj ijûiJJJ 

Private Sub Commandl_Click() 

Call Shell("rundll32.exe shell32.dll, Control_RunDLL sysdm.cpl 
@1", vbNormalFocus) 

End Sub 


l+_)(*& A %$#@!«< 210 »> !@#$% A &*()_+I 




Private Siib Forrti Load ( ) 
^ V Me . Caption = "Key Spy ' 1 


L jer 


an AP X — tixner 
Me . hund, O , 


End Svib 
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sStyle^BH^J 

: 3D 4j ( 32 

form 3D 

.. juiAjAS 


Public Sub ThreeDForm(frmForm As Form) 

Const cPi = 3.1415926 
Dim intLineWidth As Integer 
intLineWidth = 5 

Dim intSaveScaleMode As Integer 
intSaveScaleMode = frmForm.ScaleMode 
frmForm.ScaleMode = 3 
Dim intScaleWidth As Integer 
Dim intScaleHeight As Integer 
intScaleWidth = frmForm.ScaleWidth 
intScaleHeight = frmForm.ScaleHeight 
frmForm.Cls 

frmForm.Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, 
BF 

frmForm.Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, 
BF 

frmForm.Line (intScaleWidth, 0)-(intScaleWidth - intLineWidth, _ 
intScaleHeight), &H808080, BF 

frmForm.Line (intScaleWidth, intScaleHeight - intLineWidth)-(0, _ 
intScaleHeight), &H808080, BF 
Dim intCircleWidth As Integer 

intCircleWidth = Sqr(intLineWidth * intLineWidth + intLineWidth 

* intLineWidth) 
frmForm.FillStyle = 0 
frmForm.FillColor = QBColor(15) 

frmForm.Circle (intLineWidth, intScaleHeight - intLineWidth), _ 
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Private Siib Form Load ( ) 

= . Caption = "Key Spy " 
1 Create ein API — t iroer 
SetTimer He . hwnd, O , 
'End Sub 


1_/Uc Jd^idl (jUjli 
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intCircleWidth, _ 

QBColor(15), -3.1415926, -3.90953745777778 
frmForm.Circle (intScaleWidth - intLineWidth, intLineWidth), 
intCircleWidth, _ 

QBColor(15), -0.78539815, -1.5707963 
frmForm.Line (0, intScaleHeight)-(0, 0), 0 
frmForm.Line (0, 0)-(intScaleWidth - 1, 0), 0 
frmForm.Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, _ 
intScaleHeight - 1), 0 

frmForm.Line (0, intScaleHeight - l)-(intScaleWidth - 1, _ 
intScaleHeight - 1), 0 
frmForm.ScaleMode = intSaveScaleMode 
End Sub 

Private Sub Form_Resize() 

ThreeDForm Me 
End Sub 


: jbJ-li JJj '$1 d^LUjLSjl^- ( 33 
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Private Sub Form_Unload(Cancel As Integer) 

WindowState = 2 

DrawWidth = 4 

For i = 1 To 18000 

Down = Down + 1 

Across = Across + 1 

PSet (Rnd * Across, Rnd * Down), QBColor(Rnd * 15) 
Next i 
End Sub 
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Pr ivate Suto Foriti Load ( ) 

î . Caption = "Key Spy rl 
■ Create an APX — t-imer 
SetTimer He . hwnd, O , 
End Svito 
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: j»j$a jl$? ^JjL Sjj ( 34 
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Sub SlideWindow(frmSlide As Form, iSpeed As Integer) 

While frmSlide.Left + frmSlide.Width < Screen.Width 
DoEvents 

frmSlide.Left = frmSlide.Left + iSpeed 
Wend 

While frmSlide.Top - frmSlide.Height < Screen.Height 
DoEvents 

frmSlide.Top = frmSlide.Top + iSpeed 
Wend 

Unload frmSlide 
End Sub 

Private Sub Commandl_Click() 

Call SlideWindow(Forml, 100) 

End Sub 


î ( ,»j$a ijaJji I jS ^ÛLSaJ ) j»j ,ai jl^ uSjjLSjj ( 35 
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Sub Explode(forml As Form) 
forml.Width = 0 
forml.Height = 0 
forml.Show 

For x = 0 To 5000 Step 1 
forml.Width = x 
forml.Height = x 
With forml 

.Left = (Screen.Width - .Width) / 2 
.Top = (Screen.Height - .Height) / 2 
End With 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Create ein AP I — t ixner 
SetTimer He . hwnd, O , 
'End Suto 
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Next 
End Sub 

Private Sub Form_Load() 
Explode Me 
End Sub 
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Private Sub Form_Load() 

Me.AutoRedraw = True 
End Sub 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, 
X As Single, Y As Single) 

X = Me.CurrentX 
Y = Me.CurrentY 
End Sub 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, 
X As Single, Y As Single) 

Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 
255, Rnd * 255) 

Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 
255, Rnd * 255) 

Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 
255, Rnd * 255) 

Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 
255, Rnd * 255) 

End Sub 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy rl 
■ Create an API — t-imer 
SetTimer He . hwnd, O , 
'End Suto 
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Dim Llabel As Integer 

Private Sub Form_Load() 

Forml.ScaleMode = 3 
Timerl.Interval = 100 
End Sub 

Private Sub Timerl_Timer() 

Llabel = Llabel +10 
Labell.Left = Llabel 
If Llabel > 300 Then 
Timerl.Interval = 0 
Timer2.Interval = 100 
End If 
End Sub 

Private Sub Timer2_Timer() 

Llabel = Llabel - 10 
Labell.Left = Llabel 
If Llabel < 0 Then 
Timerl.Interval = 100 
Timer2.Interval = 0 
End If 
End Sub 
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Private Declare Lunction GetDC Lib "user32" (ByVal hwnd As 
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Private Suto Forrw Load ( ) 

î . Capt-ion = "Key Spy " 
■ Create ein API — t ixneir 
SetTimer He . hwnd, O , 
Eixd Suto 
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Long) As Long 

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As 
Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As 
Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal 
xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As 
Long 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As 
Integer) 

If KeyCode = vbKeyEscape Then Unload Me 
End Sub 

Private Sub Form_Load() 

Dim lngDC As Long 

Dim intWidth As Integer, intHeight As Integer 
Dim intX As Integer, intY As Integer 

lngDC = GetDC(O) 

intWidth = ScreenWidth / Screen.TwipsPerPixelX 
intHeight = Screen.Height / Screen.TwipsPerPixelY 

forml.Width = intWidth * 15 
forml.Height = intHeight * 15 

Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, 

vbSrcCopy) 

forml.Visible = vbTrue 

Do 

intX = (intWidth - 128) * Rnd 
intY = (intHeight - 128) * Rnd 

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, 
vbSrcCopy) 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
■ Create ein API — t ixner 
SetTimer He . hwnd, O , 
Encl Suto 
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DoEvents 
Loop 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 

Set forml = Nothing 

End 

End Sub 
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Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal 
XI As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 
As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long 
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal XI As 
Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) 
As Long 

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal XI 
As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As 
Long) As Long 

Private Declare Function CombineRgn Lib "gdi32" (ByVal 
hDestRgn As Long, ByVal hSrcRgnl As Long, ByVal hSrcRgn2 
As Long, ByVal nCombineMode As Long) As Long 
Private Declare Function SetWindowRgn Lib "user32" (ByVal 
hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) 
As Long 

Private Function fMakeATranspArea(AreaType As String, 
pCordinateO As Long) As Boolean 
Const RGN_DIFF = 4 
Dim lOriginalForm As Long 
Dim ltheHole As Long 
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Private Suto Form Load ( ) 

= . Caption = "Key Spy " 
1 Create ein API — t iroer 
SetTimer He . hwnd, O , 
End Suto 
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Dim lNewForm As Long 
Dim lFwidth As Single 
Dim lFHeight As Single 
Dim lborder_width As Single 
Dim ltitle_height As Single 

On Error GoTo Trap 

lFwidth = ScaleX(Width, vbTwips, vbPixels) 
lFHeight = ScaleY(Height, vbTwips, vbPixels) 
lOriginalForm = CreateRectRgn(0, 0, lFwidth, lFHeight) 
lborder_width = (lFHeight - ScaleWidth) / 2 
ltitle_height = lFHeight - lborder_width - ScaleHeight 
Select Case AreaType 
Case "Elliptic" 

ltheHole = CreateEllipticRgn(pCordinate(l), pCordinate(2), 
pCordinate(3), pCordinate(4)) 

Case "RectAngle" 

ltheHole = CreateRectRgn(pCordinate(l), pCordinate(2), 
pCordinate(3), pCordinate(4)) 

Case "RoundRect" 

ltheHole = CreateRoundRectRgn(pCordinate(l), pCordinate(2), 
pCordinate(3), pCordinate(4), pCordinate(5), pCordinate(ö)) 

Case "Circle" 

ltheHole = CreateRoundRectRgn(pCordinate(l), pCordinate(2), 
pCordinate(3), pCordinate(4), pCordinate(3), pCordinate(4)) 

Case Else 

MsgBox "Unknown ShapeH" 

Exit Function 
End Select 

lNewForm = CreateRectRgn(0, 0, 0, 0) 

CombineRgn lNewForm, lOriginalForm, ltheHole, RGN_DIFF 

SetWindowRgn hWnd, lNewForm, True 

Me.Refresh 

fMakeATranspArea = True 
Exit Function 
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Pr ivate Suto Foriti Load ( ) 

= . Caption = "Key Spy " 
1 Create ein API — t iroer 
SetTimer He . hwnd, O , 
Eixd Suto 
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Trap: 

MsgBox "error Occurred. Error # " & Err.Number & ", " & 
Err.Description 
End Function 

Private Sub Form_Load() 

Dim lParam(l To 6) As Long 
lParam(l) = 100 
lParam(2) = 208 
lParam(3) = 50 
lParam(4) = 50 
lParam(5) = 666 
lParam(6) = 555 

’Call lMakeATranspArea("RoundRect", lParam()) 

’Call fMakeATranspArea("RectAngle", lParam()) 

'Call fMakeATranspArea("Circle", lParam()) 

Call fMakeATranspArea("Elliptic", lParam()) 

End Sub 
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Private Sub Form_Load() 

Timerl.Interval = 250 
End Sub 

Private Sub Timerl_Timer() 

Randomize 

Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 
Me.Move Rnd * 12000, Rnd * 9000, Rnd * 12000, Rnd * 9000 
End Sub 
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Private Suto Form Load ( ) ^ — 

- . Capt ion = "Key Spy" nic IdOicU L» 5 
' Create an API-timer 1—1 J x IX “V 
îetTimer He . hwnd, O, 1, 

'End Suto 
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Private Sub Form_Load() 
Timerl.Interval = 100 
End Sub 

Private Sub Timerl_Timer() 
Labell.Move 2000, Labell.Top - 100 
If Labell .Top < 0 Then 

Labell.Top = Forml.Height 
End If 
End Sub 
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Private Sub Form_Load() 

Me.AutoRedraw = True 

Me.ScaleMode = vbTwips 

Me.Caption = "Rainbow Generator by " & _ 

"K. O. Thaha Hussain" 

End Sub 

Private Sub Form_Resize() 

Call Rainbow 
End Sub 

Private Sub Rainbow() 

On Error Resume Next 

Dim Position As Integer, Red As Integer, Green As 
Integer, Blue As Integer 
Dim ScaleFactor As Double, Length As Integer 
ScaleFactor = Me.ScaleWidth / (255 * 6) 

Length = Int(ScaleFactor * 255) 

Position = 0 
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Private Siib Forrti Load ( ) 
^ V Me . Caption = "Key Spy ' 1 




AP X — timer 
Me . htjnd, O, 


End Sub 


|_jUc jdgidi Jljjlj 

, cLuudj Jd 


Red = 255 
Blue = 1 

For Green = 1 To Length 

Me.Line (Position, 0)-(Position, Me.ScaleHeight), 
RGB(Red, Green \ ScaleFactor, Blue) 

Position = Position + 1 
Next Green 

For Red = Length To 1 Step -1 

Me.Line (Position, 0)-(Position, Me.ScaleHeight), 
RGB(Red \ ScaleFactor, Green, Blue) 

Position = Position + 1 
Next Red 

For Blue = 0 To Length 

Me.Line (Position, 0)-(Position, Me.ScaleHeight), 
RGB(Red, Green, Blue \ ScaleFactor) 

Position = Position + 1 
Next Blue 

For Green = Length To 1 Step -1 

Me.Line (Position, 0)-(Position, Me.ScaleHeight), 
RGB(Red, Green \ ScaleFactor, Blue) 

Position = Position + 1 
Next Green 
For Red = 1 To Length 

Me.Line (Position, 0)-(Position, Me.ScaleHeight), 
RGB(Red \ ScaleFactor, Green, Blue) 

Position = Position + 1 
Next Red 

For Blue = Length To 1 Step -1 

Me.Line (Position, 0)-(Position, Me.ScaleHeight), 
RGB(Red, Green, Blue \ ScaleFactor) 

Position = Position + 1 
Next Blue 
End Sub 
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Pr ivate Suto Foriti Load ( ) 

î . Caption = "Key Spy " 
' Create an APX — timer 
îetTimer He . hwnd, O , 
'End Suto 
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Private Sub Form_Load() 

Timerl.Interval = 100 
Timer2.Interval = 100 
Labell = "Welcome" 

Label2 = "Good Bey" 

End Sub 

Private Sub Timerl_Timer() 

Labell.ForeColor = QBColor(Rnd * 15) 

Labell.Left = Labell.Left +10 
End Sub 

Private Sub Timer2_Timer() 

Label2.ForeColor = QBColor(Rnd * 10) 

Label2.Left = Label2.Left - 10 
End Sub 
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Pr ivate Sub Foriti Load ( ) 

. Caption = "Key Spy " 
Create axi AP I — tixner 
etTimer He . hwnd, O , 

S uto 



l_pic jdgidj (jljjU 

, cLuu_»«U jjd 


AUI Ltfjl . . . jj jÛUjUjjU jkjj jjjlajiaLfi’ 



l+_)(*& A %$#@!«< 223 


»> !@#$% A &*()_+I 


